me/guix
Archived
1
0
Fork 0
Code Activity

lint: archival: Use 'origin-hash'.

Browse source 
* guix/lint.scm (check-archival): Use 'origin-hash' instead of
'origin-sha256', removing hard-coded "sha256".
This commit is contained in:
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
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/lint.scm
View file

@ -1154,15 +1154,18 @@ try again later")
((? origin? origin) ((? origin? origin)
;; Since "save" origins are not supported for non-VCS source, all ;; Since "save" origins are not supported for non-VCS source, all
;; we can do is tell whether a given tarball is available or not. ;; we can do is tell whether a given tarball is available or not.
(if (origin-sha256 origin) ;XXX: for ungoogled-chromium (if (origin-hash origin) ;XXX: for ungoogled-chromium
(match (lookup-content (origin-sha256 origin) "sha256") (let ((hash (origin-hash origin)))
(#f (match (lookup-content (content-hash-value hash)
(list (make-warning package (symbol->string
(G_ "source not archived on Software \ (content-hash-algorithm hash)))
(#f
(list (make-warning package
(G_ "source not archived on Software \
Heritage") Heritage")
#:field 'source))) #:field 'source)))
((? content?) ((? content?)
'())) '())))
'())))) '()))))
(match-lambda* (match-lambda*
((key url method response) ((key url method response)