diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-03-02 22:18:08 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-03-02 23:12:37 +0100 |
| commit | 24b2b5f99a44c390486c7158f4f4d84f63149f24 (patch) | |
| tree | 880179143aa2658dbe1a6de921e817663bf8ee99 | |
| parent | 8784b52a9adbdce4fe4699222a0618077ad66609 (diff) | |
| download | guix-24b2b5f99a44c390486c7158f4f4d84f63149f24.tar.gz | |
openpgp: Remove now unnecessary procedure.
* guix/openpgp.scm (hash-algorithm-name): Remove. This procedure has been provided by Guile-Gcrypt since 0.3.0.
| -rw-r--r-- | guix/openpgp.scm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/guix/openpgp.scm b/guix/openpgp.scm index 648c359621..9de7feb644 100644 --- a/guix/openpgp.scm +++ b/guix/openpgp.scm @@ -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, |