gnu-maintenance: 'release-file?' rejects checksum files.
* guix/gnu-maintenance.scm (release-file?): Reject ".md5sum", ".sha1sum", and ".sha256sum".
This commit is contained in:
		
							parent
							
								
									db69ebb9de
								
							
						
					
					
						commit
						9e75b31b39
					
				
					 1 changed files with 3 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -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'.
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue