01/05: lint: archival: Gracefully handle packages with a #f hash value.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 4ac3e010c9cbd9c09d41dbf472e45d57505a73ce
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Mar 22 17:07:12 2021 +0100

    lint: archival: Gracefully handle packages with a #f hash value.
    
    Fixes <https://bugs.gnu.org/47293>.
    Reported by Luis Felipe.
    
    * guix/lint.scm (check-archival): Check whether 'content-hash-value'
    returns true.
---
 guix/lint.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/lint.scm b/guix/lint.scm
index 311bc94..be524b2 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -1264,7 +1264,8 @@ try again later")
           ((? origin? origin)
            ;; Since "save" origins are not supported for non-VCS source, all
            ;; we can do is tell whether a given tarball is available or not.
-           (if (origin-hash origin)               ;XXX: for ungoogled-chromium
+           (if (and=> (origin-hash origin)          ;XXX: for 
ungoogled-chromium
+                      content-hash-value)           ;& icecat
                (let ((hash (origin-hash origin)))
                  (match (lookup-content (content-hash-value hash)
                                         (symbol->string