diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-09-25 17:34:26 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-26 00:35:06 +0200 |
| commit | 97abc90733270c4be5ce1f51e5e757d43787950b (patch) | |
| tree | f2878291f71835a31350250e5c19797e5c377971 /guix/gnu-maintenance.scm | |
| parent | 8ddf20b286226e0e777c95046d824b1e586277c9 (diff) | |
| download | gnu-guix-97abc90733270c4be5ce1f51e5e757d43787950b.tar gnu-guix-97abc90733270c4be5ce1f51e5e757d43787950b.tar.gz | |
upstream: Add 'url-prefix-predicate'.
* guix/gnu-maintenance.scm (url-prefix-predicate): Move to...
* guix/upstream.scm (url-prefix-predicate): ... here.
Diffstat (limited to 'guix/gnu-maintenance.scm')
| -rw-r--r-- | guix/gnu-maintenance.scm | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 796c2d6569..cd7ffeaefd 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -522,24 +522,6 @@ releases are on gnu.org." (not (gnome-package? package)) (gnu-package? package))) -(define (url-prefix-predicate prefix) - "Return a predicate that returns true when passed a package where one of its -source URLs starts with PREFIX." - (lambda (package) - (define matching-uri? - (match-lambda - ((? string? uri) - (string-prefix? prefix uri)) - (_ - #f))) - - (match (package-source package) - ((? origin? origin) - (match (origin-uri origin) - ((? matching-uri?) #t) - (_ #f))) - (_ #f)))) - (define gnu-hosted? (url-prefix-predicate "mirror://gnu/")) |