[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
a9468b422b6df2349a3f4d1451c9302c3d77011b.
* 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))
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
- branch master updated (8548b3d -> ed15dfc), guix-commits, 2019/12/04
- 01/07: substitute: Remove unused procedure.,
guix-commits <=
- 05/07: ssh: Always authenticate the server [security fix]., guix-commits, 2019/12/04
- 04/07: ssh: Add 'authenticate-server*' and use it for offloading., guix-commits, 2019/12/04
- 06/07: ssh: 'open-ssh-session' can be passed the expected host key., guix-commits, 2019/12/04
- 02/07: services: Add GNOME Keyring service., guix-commits, 2019/12/04
- 07/07: machine: ssh: <machine-ssh-configuration> can include the host key., guix-commits, 2019/12/04
- 03/07: gnu: bitlbee: Use Python 3., guix-commits, 2019/12/04