diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-04-14 21:48:05 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-04-15 00:32:18 +0200 |
| commit | 444bb0d857e5c5a4113ae6cb99e47c5306cdd72b (patch) | |
| tree | 67140fa0acb27fa9b6fe48a644e3d820bdb52f0e | |
| parent | 7d27a0259bc7a37c04b17ffc2953837fcc3e75ff (diff) | |
| download | guix-444bb0d857e5c5a4113ae6cb99e47c5306cdd72b.tar.gz | |
gnu-maintenance: Recognize source tarball with "-src" in their name.
* guix/gnu-maintenance.scm (tarball->version): Add special case for tarball names containing "-src".
| -rw-r--r-- | guix/gnu-maintenance.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index f97f2d1692..353892f36d 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -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)))) |