ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 11:39:46 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

substitute: Remove unused procedure.

Browse source 
This became unused with commit
a9468b422b.

* guix/scripts/substitute.scm (assert-valid-signature): Remove.
This commit is contained in:
Ludovic Courtès 2019-12-03 22:50:20 +01:00
parent 8548b3dd87
commit a6492178bd
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 0 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
guix/scripts/substitute.scm
View file

@ -322,22 +322,6 @@ (define len (length urls))
(and=> signature narinfo-signature->canonical-sexp))
str)))
(define* (assert-valid-signature narinfo signature hash
#:optional (acl (current-acl)))
"Bail out if SIGNATURE, a canonical sexp representing the signature of
NARINFO, doesn't match HASH, a bytevector containing the hash of NARINFO."
(let ((uri (uri->string (first (narinfo-uris narinfo)))))
(signature-case (signature hash acl)
(valid-signature #t)
(invalid-signature
(leave (G_ "invalid signature for '~a'~%") uri))
(hash-mismatch
(leave (G_ "hash mismatch for '~a'~%") uri))
(unauthorized-key
(leave (G_ "'~a' is signed with an unauthorized key~%") uri))
(corrupt-signature
(leave (G_ "signature on '~a' is corrupt~%") uri)))))
(define* (read-narinfo port #:optional url
#:key size)
"Read a narinfo from PORT. If URL is true, it must be a string used to