nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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 <ludo@gnu.org>
master
Kyle Meyer 2018-07-07 00:41:34 -04:00 committed by Ludovic Courtès
parent 7a369f6d2f
commit 7ede577a5f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/scripts/container.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2018 Kyle Meyer <kyle@kyleam.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -54,7 +55,7 @@ Build and manipulate Linux containers.\n"))
((or ("-h") ("--help")) ((or ("-h") ("--help"))
(show-help) (show-help)
(exit 0)) (exit 0))
(("--version") ((or ("-V") ("--version"))
(show-version-and-exit "guix container")) (show-version-and-exit "guix container"))
((action args ...) ((action args ...)
(if (member action %actions) (if (member action %actions)

3
guix/scripts/import.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 David Thompson <davet@gnu.org> ;;; Copyright © 2014 David Thompson <davet@gnu.org>
;;; Copyright © 2018 Kyle Meyer <kyle@kyleam.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -104,7 +105,7 @@ Run IMPORTER with ARGS.\n"))
((or ("-h") ("--help")) ((or ("-h") ("--help"))
(show-help) (show-help)
(exit 0)) (exit 0))
(("--version") ((or ("-V") ("--version"))
(show-version-and-exit "guix import")) (show-version-and-exit "guix import"))
((importer args ...) ((importer args ...)
(if (member importer importers) (if (member importer importers)

3
guix/scripts/substitute.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2014 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2018 Kyle Meyer <kyle@kyleam.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1108,7 +1109,7 @@ default value."
(process-substitution store-path destination (process-substitution store-path destination
#:cache-urls (substitute-urls) #:cache-urls (substitute-urls)
#:acl (current-acl)))) #:acl (current-acl))))
(("--version") ((or ("-V") ("--version"))
(show-version-and-exit "guix substitute")) (show-version-and-exit "guix substitute"))
(("--help") (("--help")
(show-help)) (show-help))