diff --git a/etc/disarchive-manifest.scm b/etc/disarchive-manifest.scm index e4bc97dd019..b12cd784660 100644 --- a/etc/disarchive-manifest.scm +++ b/etc/disarchive-manifest.scm @@ -99,6 +99,12 @@ an empty directory if ORIGIN could not be disassembled." (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))