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

* guix/scripts/copy.scm (%options): Add '--dry-run'.
2020-03-22 12:25:39 +01:00 · 2020-03-22 12:25:39 +01:00 · 81c0b52bd6
parent 7473238f7d
commit 81c0b52bd6
1 changed files with 4 additions and 0 deletions
--- 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)