diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-03-13 17:51:22 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-03-17 12:03:24 +0100 |
| commit | 9e75b31b39cd0f95021ca29eed88a6a3b1bff8c1 (patch) | |
| tree | bbde066787afb6431fa2a484bf8d55ab74910a8b /guix/gnu-maintenance.scm | |
| parent | db69ebb9debda9e53ebb62f5113303cd9ff8dc14 (diff) | |
| download | guix-9e75b31b39cd0f95021ca29eed88a6a3b1bff8c1.tar.gz | |
gnu-maintenance: 'release-file?' rejects checksum files.
* guix/gnu-maintenance.scm (release-file?): Reject ".md5sum", ".sha1sum", and ".sha256sum".
Diffstat (limited to 'guix/gnu-maintenance.scm')
| -rw-r--r-- | guix/gnu-maintenance.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 98d326e500..a8b24fa336 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -247,7 +247,9 @@ network to check in GNU's database." (define (release-file? project file) "Return #f if FILE is not a release tarball of PROJECT, otherwise return true." - (and (not (member (file-extension file) '("sig" "sign" "asc"))) + (and (not (member (file-extension file) + '("sig" "sign" "asc" + "md5sum" "sha1sum" "sha256sum"))) (and=> (regexp-exec %tarball-rx file) (lambda (match) ;; Filter out unrelated files, like `guile-www-1.1.1'. |