01/18: disarchive-manifest: Filter out origins without a hash.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6d4a0ccecb58c62a95f7f36fa2f4fa53dd52312e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Aug 5 09:19:47 2022 +0200

    disarchive-manifest: Filter out origins without a hash.
    
    * etc/disarchive-manifest.scm (disarchive-collection): Filter out
    origins with a phony hash.
---
 etc/disarchive-manifest.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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))