[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/07: substitute: Remove unused procedure.

From: guix-commits
Subject: 01/07: substitute: Remove unused procedure.
Date: Wed, 4 Dec 2019 12:16:17 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit a6492178bd208fb004a2ccd58a2179c4f1a011a3
Author: Ludovic Court├Ęs <address@hidden>
Date:   Tue Dec 3 22:50:20 2019 +0100

    substitute: Remove unused procedure.
    This became unused with commit
    * guix/scripts/substitute.scm (assert-valid-signature): Remove.
 guix/scripts/substitute.scm | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 421561a..b6034a7 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))
-(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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]