summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-12-07 22:18:31 +0100
committerLudovic Courtès <ludo@gnu.org>2015-12-07 23:32:01 +0100
commitfa04a04f18bbab671459ea789fb61da6cd1d74fb (patch)
tree78c1cd764c9deae3cdcd09d58152113472ecc960
parentf00dccf4418af5857223ed9b7932daadb61cd7b6 (diff)
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.scm8
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))))