TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

openpgp: Remove now unnecessary procedure. 

* guix/openpgp.scm (hash-algorithm-name): Remove.  This procedure has
been provided by Guile-Gcrypt since 0.3.0.
This commit is contained in:
Ludovic Courtès 2021-03-02 22:18:08 +01:00
parent 8784b52a9a
commit 24b2b5f99a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
guix/openpgp.scm
View File

@ -538,17 +538,6 @@ signature."
(raise (condition
(&openpgp-invalid-signature-error (port port))))))))
(define (hash-algorithm-name algorithm) ;XXX: should be in Guile-Gcrypt
"Return the name of ALGORITHM, a 'hash-algorithm' integer, as a symbol."
(letrec-syntax ((->name (syntax-rules ()
((_) #f)
((_ name rest ...)
(if (= algorithm (hash-algorithm name))
'name
(->name rest ...))))))
(->name sha1 sha256 sha384 sha512 sha224
sha3-224 sha3-256 sha3-384 sha3-512)))
(define (verify-openpgp-signature sig keyring dataport)
"Verify that the data read from DATAPORT matches SIG, an
<openpgp-signature>. Fetch the public key of the issuer of SIG from KEYRING,