diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-08-05 09:19:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-05 15:28:02 +0200 |
| commit | 6d4a0ccecb58c62a95f7f36fa2f4fa53dd52312e (patch) | |
| tree | 20fb5a18ed16edabe8b8ea2ad2b18bfb092b83cd /etc/disarchive-manifest.scm | |
| parent | bd956bc57babc427347180fd4e5f4485990811ba (diff) | |
| download | guix-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.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)) |