ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-28 14:01:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

copy: Actually implement '--dry-run'.

Browse source 
* guix/scripts/copy.scm (%options): Add '--dry-run'.
This commit is contained in:
Ludovic Courtès 2020-03-22 12:25:39 +01:00
parent 7473238f7d
commit 81c0b52bd6
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/copy.scm
View file

@ -138,6 +138,10 @@ (define %options
(let ((level (string->number* arg)))
(alist-cons 'verbosity level
(alist-delete 'verbosity result)))))
(option '(#\n "dry-run") #f #f
(lambda (opt name arg result)
(alist-cons 'dry-run? #t (alist-cons 'graft? #f result))))
(option '(#\h "help") #f #f
(lambda args
(show-help)