[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: lint: archival: Gracefully handle packages with a #f hash value.
From: |
guix-commits |
Subject: |
01/05: lint: archival: Gracefully handle packages with a #f hash value. |
Date: |
Thu, 25 Mar 2021 19:06:27 -0400 (EDT) |
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