me
/
guix
Archived
1
0
Fork 0

lint: archival: Use 'origin-hash'.

* guix/lint.scm (check-archival): Use 'origin-hash' instead of
'origin-sha256', removing hard-coded "sha256".
master
Ludovic Courtès 2020-05-22 00:23:15 +02:00
parent ce0be5675b
commit feea1d0e62
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 8 deletions

View File

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