Skip to content
Snippets Groups Projects
Unverified Commit 41946b79 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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

* guix/git-authenticate.scm (authenticate-commits): Add #:keyring
parameter.
parent a450b434
No related branches found
No related tags found
No related merge requests found
...@@ -271,13 +271,13 @@ (define* (authenticate-commits repository commits ...@@ -271,13 +271,13 @@ (define* (authenticate-commits repository commits
#:key #:key
(default-authorizations '()) (default-authorizations '())
(keyring-reference "keyring") (keyring-reference "keyring")
(keyring (load-keyring-from-reference
repository keyring-reference))
(report-progress (const #t))) (report-progress (const #t)))
"Authenticate COMMITS, a list of commit objects, calling REPORT-PROGRESS for "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. each of them. Return an alist showing the number of occurrences of each key.
The OpenPGP keyring is loaded from KEYRING-REFERENCE in REPOSITORY." If KEYRING is omitted, the OpenPGP keyring is loaded from KEYRING-REFERENCE in
(define keyring REPOSITORY."
(load-keyring-from-reference repository keyring-reference))
(fold (lambda (commit stats) (fold (lambda (commit stats)
(report-progress) (report-progress)
(let ((signer (authenticate-commit repository commit keyring (let ((signer (authenticate-commit repository commit keyring
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment