[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

13/16: copy: Actually implement '--dry-run'.

From: guix-commits
Subject: 13/16: copy: Actually implement '--dry-run'.
Date: Sun, 22 Mar 2020 07:43:14 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit 81c0b52bd6301a7ded157b270097a8074c8f2d50
Author: Ludovic Court├Ęs <address@hidden>
AuthorDate: Sun Mar 22 12:25:39 2020 +0100

    copy: Actually implement '--dry-run'.
    * guix/scripts/copy.scm (%options): Add '--dry-run'.
 guix/scripts/copy.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/scripts/copy.scm b/guix/scripts/copy.scm
index 2542df6..fdb684c 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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]