me/guix
Archived
1
0
Fork 0
Code Activity

disarchive-manifest: Filter out origins without a hash.

Browse source 
* etc/disarchive-manifest.scm (disarchive-collection): Filter out
origins with a phony hash.
This commit is contained in:
Ludovic Courtès 2022-08-05 09:19:47 +02:00
parent bd956bc57b
commit 6d4a0ccecb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
etc/disarchive-manifest.scm
View file

@ -99,6 +99,12 @@ an empty directory if ORIGIN could not be disassembled."
(directory-union "disarchive-collection" (directory-union "disarchive-collection"
(filter-map (lambda (origin) (filter-map (lambda (origin)
(and (tarball-origin? origin) (and (tarball-origin? origin)
;; Dismiss origins with (sha256 #f) such
;; as that of IceCat.
(and=> (origin-hash origin)
content-hash-value)
(origin->disarchive origin))) (origin->disarchive origin)))
origins) origins)
#:copy? #t)) #:copy? #t))