civodul pushed a commit to branch master
in repository guix.
commit 7ede577a5f90a459b731eeb025af450ff891603c
Author: Kyle Meyer <[email protected]>
Date: Sat Jul 7 00:41:34 2018 -0400
scripts: Add missing -V option to commands that document it.
* guix/scripts/container.scm (guix-container):
* guix/scripts/import.scm (guix-import):
* guix/scripts/substitute.scm (guix-substitute): Add -V as the short option
for --version to match show-help's description.
Signed-off-by: Ludovic Courtès <[email protected]>
---
guix/scripts/container.scm | 3 ++-
guix/scripts/import.scm | 3 ++-
guix/scripts/substitute.scm | 3 ++-
3 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/container.scm b/guix/scripts/container.scm
index 10aed2b..8041d64 100644
--- a/guix/scripts/container.scm
+++ b/guix/scripts/container.scm
@@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <[email protected]>
+;;; Copyright © 2018 Kyle Meyer <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -54,7 +55,7 @@ Build and manipulate Linux containers.\n"))
((or ("-h") ("--help"))
(show-help)
(exit 0))
- (("--version")
+ ((or ("-V") ("--version"))
(show-version-and-exit "guix container"))
((action args ...)
(if (member action %actions)
diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm
index 67bc7a7..f8cb857 100644
--- a/guix/scripts/import.scm
+++ b/guix/scripts/import.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <[email protected]>
;;; Copyright © 2014 David Thompson <[email protected]>
+;;; Copyright © 2018 Kyle Meyer <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -104,7 +105,7 @@ Run IMPORTER with ARGS.\n"))
((or ("-h") ("--help"))
(show-help)
(exit 0))
- (("--version")
+ ((or ("-V") ("--version"))
(show-version-and-exit "guix import"))
((importer args ...)
(if (member importer importers)
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index d0beacc..7634bb3 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès
<[email protected]>
;;; Copyright © 2014 Nikita Karetnikov <[email protected]>
+;;; Copyright © 2018 Kyle Meyer <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -1108,7 +1109,7 @@ default value."
(process-substitution store-path destination
#:cache-urls (substitute-urls)
#:acl (current-acl))))
- (("--version")
+ ((or ("-V") ("--version"))
(show-version-and-exit "guix substitute"))
(("--help")
(show-help))
