summaryrefslogtreecommitdiff
path: root/guix/scripts/authenticate.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-05-24 12:05:47 +0200
committerRicardo Wurmus <rekado@elephly.net>2017-05-24 12:05:47 +0200
commitd1a914082b7e53636f9801769ef96218b2125c4b (patch)
tree998805fc59fe0b1bb105b24a6a79fff646257d96 /guix/scripts/authenticate.scm
parent657fb6c947d94cf946f29cd24e88bd080c01ff0a (diff)
parentae548434337cddf9677a4cd52b9370810b2cc9b6 (diff)
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/scripts/authenticate.scm')
-rw-r--r--guix/scripts/authenticate.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/guix/scripts/authenticate.scm b/guix/scripts/authenticate.scm
index d9a312f1da..8b19dc871b 100644
--- a/guix/scripts/authenticate.scm
+++ b/guix/scripts/authenticate.scm
@@ -56,7 +56,7 @@ both the hash and the actual signature."
".pub")
read-canonical-sexp)
(leave
- (_ "cannot find public key for secret key '~a'~%")
+ (G_ "cannot find public key for secret key '~a'~%")
key-file)))
(data (read-hash-data port (key-type public-key)))
(signature (signature-sexp data secret-key public-key)))
@@ -76,11 +76,11 @@ to stdout upon success."
(let ((hash (hash-data->bytevector data)))
(display (bytevector->base16-string hash))
#t) ; success
- (leave (_ "error: invalid signature: ~a~%")
+ (leave (G_ "error: invalid signature: ~a~%")
(canonical-sexp->string signature)))
- (leave (_ "error: unauthorized public key: ~a~%")
+ (leave (G_ "error: unauthorized public key: ~a~%")
(canonical-sexp->string subject)))
- (leave (_ "error: corrupt signature data: ~a~%")
+ (leave (G_ "error: corrupt signature data: ~a~%")
(canonical-sexp->string signature)))))
@@ -118,12 +118,12 @@ to stdout upon success."
(("rsautl" "-verify" "-inkey" _ "-pubin")
(validate-signature (current-input-port)))
(("--help")
- (display (_ "Usage: guix authenticate OPTION...
+ (display (G_ "Usage: guix authenticate OPTION...
Sign or verify the signature on the given file. This tool is meant to
be used internally by 'guix-daemon'.\n")))
(("--version")
(show-version-and-exit "guix authenticate"))
(else
- (leave (_ "wrong arguments"))))))
+ (leave (G_ "wrong arguments"))))))
;;; authenticate.scm ends here