aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-22 12:25:39 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-22 12:42:52 +0100
commit81c0b52bd6301a7ded157b270097a8074c8f2d50 (patch)
tree6acc5cd2f3a70e2e4c0342c8ff9d1e90ff07e408
parent7473238f7de28f9c85e364364c3155a3bbb877ac (diff)
downloadguix-81c0b52bd6301a7ded157b270097a8074c8f2d50.tar
guix-81c0b52bd6301a7ded157b270097a8074c8f2d50.tar.gz
copy: Actually implement '--dry-run'.
* guix/scripts/copy.scm (%options): Add '--dry-run'.
-rw-r--r--guix/scripts/copy.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/guix/scripts/copy.scm b/guix/scripts/copy.scm
index 2542df6b19..fdb684c6b6 100644
--- a/guix/scripts/copy.scm
+++ b/guix/scripts/copy.scm
@@ -138,6 +138,10 @@ Copy ITEMS to or from the specified host over SSH.\n"))
(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)