diff options
-rw-r--r-- | etc/disarchive-manifest.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/etc/disarchive-manifest.scm b/etc/disarchive-manifest.scm index e4bc97dd01..b12cd78466 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)) |