diff options
| author | Marius Bakke <marius@gnu.org> | 2020-05-26 22:38:12 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-05-26 22:38:12 +0200 |
| commit | 8a7a5dc7805f4628e60f90af6b2416f951d0c034 (patch) | |
| tree | 63f13443ea5c9e7ee5bb219fc9ff4f1eacfbf21a /guix/lint.scm | |
| parent | c37b621cf3f0cd9c06677b4be6f931d927e7fea5 (diff) | |
| parent | 8bd0b533b30d7ee5e03aee99a2eb96d5b0b1c836 (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/lint.scm')
| -rw-r--r-- | guix/lint.scm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index e192f292a4..6271894360 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -1154,15 +1154,18 @@ 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-sha256 origin) ;XXX: for ungoogled-chromium - (match (lookup-content (origin-sha256 origin) "sha256") - (#f - (list (make-warning package - (G_ "source not archived on Software \ + (if (origin-hash origin) ;XXX: for ungoogled-chromium + (let ((hash (origin-hash origin))) + (match (lookup-content (content-hash-value hash) + (symbol->string + (content-hash-algorithm hash))) + (#f + (list (make-warning package + (G_ "source not archived on Software \ Heritage") - #:field 'source))) - ((? content?) - '())) + #:field 'source))) + ((? content?) + '()))) '())))) (match-lambda* ((key url method response) |