diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-12-07 22:18:31 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-12-07 23:32:01 +0100 |
| commit | fa04a04f18bbab671459ea789fb61da6cd1d74fb (patch) | |
| tree | 78c1cd764c9deae3cdcd09d58152113472ecc960 | |
| parent | f00dccf4418af5857223ed9b7932daadb61cd7b6 (diff) | |
| download | guix-fa04a04f18bbab671459ea789fb61da6cd1d74fb.tar guix-fa04a04f18bbab671459ea789fb61da6cd1d74fb.tar.gz | |
gnu-maintenance: Properly handle TeXmacs.
* guix/gnu-maintenance.scm (ftp-server/directory): Add comment.
(release-file?): Use 'string-ci=?' instead of 'equal?' when comparing
project names.
| -rw-r--r-- | guix/gnu-maintenance.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 54bc6f5d50..aa3202fd2c 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -222,6 +222,9 @@ stored." ("source-highlight" "ftp.gnu.org" "/gnu/src-highlite") ("glib" "ftp.gnome.org" "/pub/gnome/sources/glib") ("gnutls" "ftp.gnutls.org" "/gcrypt/gnutls") + + ;; FIXME: ftp.texmacs.org is currently outdated; texmacs.org refers to + ;; its own http URL instead. ("TeXmacs" "ftp.texmacs.org" "/TeXmacs/targz"))) (match (assoc project quirks) @@ -252,7 +255,10 @@ true." (and=> (regexp-exec %tarball-rx file) (lambda (match) ;; Filter out unrelated files, like `guile-www-1.1.1'. - (equal? project (match:substring match 1)))) + ;; Case-insensitive for things like "TeXmacs" vs. "texmacs". + (and=> (match:substring match 1) + (lambda (name) + (string-ci=? name project))))) (not (regexp-exec %alpha-tarball-rx file)) (let ((s (sans-extension file))) (regexp-exec %package-name-rx s)))) |