me
/
guix
Archived
1
0
Fork 0
Code

gnu-maintenance: Recognize source tarball with "-src" in their name. 

* guix/gnu-maintenance.scm (tarball->version): Add special case for
tarball names containing "-src".
master
Ludovic Courtès 2016-04-14 21:48:05 +02:00
parent 7d27a0259b
commit 444bb0d857
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/gnu-maintenance.scm
View File

@ -258,9 +258,13 @@ true."
(lambda (match)
;; Filter out unrelated files, like `guile-www-1.1.1'.
;; Case-insensitive for things like "TeXmacs" vs. "texmacs".
;; The "-src" suffix is for "freefont-src-20120503.tar.gz".
(and=> (match:substring match 1)
(lambda (name)
(string-ci=? name project)))))
(or (string-ci=? name project)
(string-ci=? name
(string-append project
"-src")))))))
(not (regexp-exec %alpha-tarball-rx file))
(let ((s (sans-extension file)))
(regexp-exec %package-name-rx s))))