summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-12-03 22:50:20 +0100
committerLudovic Courtès <ludo@gnu.org>2019-12-04 18:16:08 +0100
commita6492178bd208fb004a2ccd58a2179c4f1a011a3 (patch)
tree138e68a43f832ca77e63169a5caa03ed349aae0b /guix/scripts
parent8548b3dd87a795f850a97add59fd87ec5f49f092 (diff)
substitute: Remove unused procedure.
This became unused with commit a9468b422b6df2349a3f4d1451c9302c3d77011b. * guix/scripts/substitute.scm (assert-valid-signature): Remove.
Diffstat (limited to 'guix/scripts')
-rwxr-xr-xguix/scripts/substitute.scm16
1 files changed, 0 insertions, 16 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 421561a4ea..b6034a75d2 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -322,22 +322,6 @@ must contain the original contents of a narinfo file."
(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