aboutsummaryrefslogtreecommitdiff
path: root/guix/scripts/import/crate.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/scripts/import/crate.scm')
-rw-r--r--guix/scripts/import/crate.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/guix/scripts/import/crate.scm b/guix/scripts/import/crate.scm
index 4337a0b623..cab9a4397b 100644
--- a/guix/scripts/import/crate.scm
+++ b/guix/scripts/import/crate.scm
@@ -40,11 +40,11 @@
'())
(define (show-help)
- (display (_ "Usage: guix import crate PACKAGE-NAME
+ (display (G_ "Usage: guix import crate PACKAGE-NAME
Import and convert the crate.io package for PACKAGE-NAME.\n"))
- (display (_ "
+ (display (G_ "
-h, --help display this help and exit"))
- (display (_ "
+ (display (G_ "
-V, --version display version information and exit"))
(newline)
(show-bug-report-information))
@@ -70,7 +70,7 @@ Import and convert the crate.io package for PACKAGE-NAME.\n"))
;; Return the alist of option values.
(args-fold* args %options
(lambda (opt name arg result)
- (leave (_ "~A: unrecognized option~%") name))
+ (leave (G_ "~A: unrecognized option~%") name))
(lambda (arg result)
(alist-cons 'argument arg result))
%default-options))
@@ -85,10 +85,10 @@ Import and convert the crate.io package for PACKAGE-NAME.\n"))
((package-name)
(let ((sexp (crate->guix-package package-name)))
(unless sexp
- (leave (_ "failed to download meta-data for package '~a'~%")
+ (leave (G_ "failed to download meta-data for package '~a'~%")
package-name))
sexp))
(()
- (leave (_ "too few arguments~%")))
+ (leave (G_ "too few arguments~%")))
((many ...)
- (leave (_ "too many arguments~%"))))))
+ (leave (G_ "too many arguments~%"))))))