me/guix
Archived
1
0
Fork 0
Code Activity

gnu-maintenance: 'release-file?' rejects checksum files.

Browse source 
* guix/gnu-maintenance.scm (release-file?): Reject ".md5sum",
".sha1sum", and ".sha256sum".
This commit is contained in:
Ludovic Courtès 2021-03-13 17:51:22 +01:00
parent db69ebb9de
commit 9e75b31b39
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/gnu-maintenance.scm
View file

@ -247,7 +247,9 @@ network to check in GNU's database."
(define (release-file? project file) (define (release-file? project file)
"Return #f if FILE is not a release tarball of PROJECT, otherwise return "Return #f if FILE is not a release tarball of PROJECT, otherwise return
true." 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) (and=> (regexp-exec %tarball-rx file)
(lambda (match) (lambda (match)
;; Filter out unrelated files, like `guile-www-1.1.1'. ;; Filter out unrelated files, like `guile-www-1.1.1'.