me/guix
Archived
1
0
Fork 0
Code Activity

home: '--version' really says "guix home".

Browse source 
* guix/scripts/home.scm (%options): Fix argument to 'show-version-and-exit'.
This commit is contained in:
Ludovic Courtès 2023-01-05 13:12:24 +01:00
parent dc7eb6f07a
commit 2c757e8fb4
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/home.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2022-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org> ;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -171,7 +171,7 @@ Some ACTIONS support additional ARGS.\n"))
(alist-cons 'dry-run? #t result))) (alist-cons 'dry-run? #t result)))
(option '(#\V "version") #f #f (option '(#\V "version") #f #f
(lambda args (lambda args
(show-version-and-exit "guix show"))) (show-version-and-exit "guix home")))
(option '(#\v "verbosity") #t #f (option '(#\v "verbosity") #t #f
(lambda (opt name arg result) (lambda (opt name arg result)
(let ((level (string->number* arg))) (let ((level (string->number* arg)))