aboutsummaryrefslogtreecommitdiff
path: root/etc/disarchive-manifest.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-08-05 09:19:47 +0200
committerLudovic Courtès <ludo@gnu.org>2022-08-05 15:28:02 +0200
commit6d4a0ccecb58c62a95f7f36fa2f4fa53dd52312e (patch)
tree20fb5a18ed16edabe8b8ea2ad2b18bfb092b83cd /etc/disarchive-manifest.scm
parentbd956bc57babc427347180fd4e5f4485990811ba (diff)
downloadguix-6d4a0ccecb58c62a95f7f36fa2f4fa53dd52312e.tar
guix-6d4a0ccecb58c62a95f7f36fa2f4fa53dd52312e.tar.gz
disarchive-manifest: Filter out origins without a hash.
* etc/disarchive-manifest.scm (disarchive-collection): Filter out origins with a phony hash.
Diffstat (limited to 'etc/disarchive-manifest.scm')
-rw-r--r--etc/disarchive-manifest.scm6
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))