diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-03-22 17:07:12 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-03-26 00:04:04 +0100 |
| commit | 4ac3e010c9cbd9c09d41dbf472e45d57505a73ce (patch) | |
| tree | 7d0a7d80d2da2a5a877c4815d0449381789af59b | |
| parent | bc8554ecb1c132629640f1e61dd2a7e7c9a92027 (diff) | |
| download | guix-4ac3e010c9cbd9c09d41dbf472e45d57505a73ce.tar guix-4ac3e010c9cbd9c09d41dbf472e45d57505a73ce.tar.gz | |
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.
| -rw-r--r-- | guix/lint.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index 311bc94cc3..be524b2b56 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 |