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.
This commit is contained in:
Ludovic Courtès 2021-03-22 17:07:12 +01:00
parent bc8554ecb1
commit 4ac3e010c9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

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