mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-21 01:26:43 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

deploy: Handle "--version".

Browse source 
* guix/scripts/deploy.scm (%options): Add "--version".
This commit is contained in:
Ludovic Courtès 2019-11-18 22:59:21 +01:00
parent 6fbd8fde2f
commit 1bdb63e73b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/deploy.scm
View file

@ -62,6 +62,10 @@ (define %options
(lambda args (lambda args
(show-help) (show-help)
(exit 0))) (exit 0)))
(option '(#\V "version") #f #f
(lambda args
(show-version-and-exit "guix deploy")))
(option '(#\s "system") #t #f (option '(#\s "system") #t #f
(lambda (opt name arg result) (lambda (opt name arg result)
(alist-cons 'system arg (alist-cons 'system arg