disarchive-manifest: Filter out origins without a hash.

* 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

View file

@ -99,6 +99,12 @@ (define (disarchive-collection origins)
(directory-union "disarchive-collection"
(filter-map (lambda (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)))
origins)
#:copy? #t))