git-authenticate: 'authenticate-commits' takes a #:keyring parameter.

* guix/git-authenticate.scm (authenticate-commits): Add #:keyring
parameter.
This commit is contained in:
Ludovic Courtès 2020-06-08 11:52:15 +02:00
parent a450b4343b
commit 41946b79f1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -271,13 +271,13 @@ (define* (authenticate-commits repository commits
#:key
(default-authorizations '())
(keyring-reference "keyring")
(keyring (load-keyring-from-reference
repository keyring-reference))
(report-progress (const #t)))
"Authenticate COMMITS, a list of commit objects, calling REPORT-PROGRESS for
each of them. Return an alist showing the number of occurrences of each key.
The OpenPGP keyring is loaded from KEYRING-REFERENCE in REPOSITORY."
(define keyring
(load-keyring-from-reference repository keyring-reference))
If KEYRING is omitted, the OpenPGP keyring is loaded from KEYRING-REFERENCE in
REPOSITORY."
(fold (lambda (commit stats)
(report-progress)
(let ((signer (authenticate-commit repository commit keyring