openpgp: 'lookup-key-by-{id,fingerprint}' return the key first.
authorLudovic Courtès <ludo@gnu.org>
Thu, 30 Apr 2020 13:43:19 +0000 (15:43 +0200)
committerLudovic Courtès <ludo@gnu.org>
Mon, 4 May 2020 07:56:13 +0000 (09:56 +0200)
commitbd8126558dc7a022d7853d803d7134ffa1b7bc52
tree4eefdfc92ddf9ff6db9f8b122dfe09e50dc06d80
parentb45fa0a123bec8d023e5520dfb381bfc73313929
openpgp: 'lookup-key-by-{id,fingerprint}' return the key first.

Previously, 'lookup-key-by-{id,fingerprint}' would always return the
list of packets where the primary key is first.  Thus, the caller would
need to use 'find' to actually find the requested key.

* guix/openpgp.scm (keyring-insert): Always add KEY to PACKETS.
(lookup-key-by-id, lookup-key-by-fingerprint): Change to return the key
as the first value.
(verify-openpgp-signature): Remove now unneeded call to 'find'.
* tests/openpgp.scm ("get-openpgp-keyring"): Adjust accordingly.
guix/openpgp.scm
tests/openpgp.scm