From fdca1c079b7c1222f097a6f3a60a86e04dc8a1a4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 17 Feb 2013 16:25:30 +0100
Subject: [PATCH] scripts: Remove hyphen in the command name shown by
`--version'.
* guix/scripts/build.scm (%options): Remove hyphen from the name passed
to `show-version-and-exit'.
* guix/scripts/download.scm (%options): Likewise.
* guix/scripts/gc.scm (%options): Likewise.
* guix/scripts/import.scm (%options): Likewise.
* guix/scripts/package.scm (%options): Likewise.
---
guix/scripts/build.scm | 2 +-
guix/scripts/download.scm | 2 +-
guix/scripts/gc.scm | 2 +-
guix/scripts/import.scm | 2 +-
guix/scripts/package.scm | 2 +-
5 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index 3e241ca9dac..7863fb881b6 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -105,7 +105,7 @@ (define %options
(exit 0)))
(option '(#\V "version") #f #f
(lambda args
- (show-version-and-exit "guix-build")))
+ (show-version-and-exit "guix build")))
(option '(#\S "source") #f #f
(lambda (opt name arg result)
diff --git a/guix/scripts/download.scm b/guix/scripts/download.scm
index 790cf9fc2fa..10370e59af8 100644
--- a/guix/scripts/download.scm
+++ b/guix/scripts/download.scm
@@ -104,7 +104,7 @@ (define fmt-proc
(exit 0)))
(option '(#\V "version") #f #f
(lambda args
- (show-version-and-exit "guix-download")))))
+ (show-version-and-exit "guix download")))))
;;;
diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm
index 8e2587186e5..f2d2e17d4be 100644
--- a/guix/scripts/gc.scm
+++ b/guix/scripts/gc.scm
@@ -97,7 +97,7 @@ (define %options
(exit 0)))
(option '(#\V "version") #f #f
(lambda args
- (show-version-and-exit "guix-gc")))
+ (show-version-and-exit "guix gc")))
(option '(#\C "collect-garbage") #f #t
(lambda (opt name arg result)
diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm
index f0aaa80aa01..0b95afced14 100644
--- a/guix/scripts/import.scm
+++ b/guix/scripts/import.scm
@@ -85,7 +85,7 @@ (define %options
(exit 0)))
(option '(#\V "version") #f #f
(lambda args
- (show-version-and-exit "guix-import")))))
+ (show-version-and-exit "guix import")))))
;;;
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 559be508243..23786fb7d8d 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -327,7 +327,7 @@ (define %options
(exit 0)))
(option '(#\V "version") #f #f
(lambda args
- (show-version-and-exit "guix-package")))
+ (show-version-and-exit "guix package")))
(option '(#\i "install") #t #f
(lambda (opt name arg result)
--
GitLab