diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-22 12:25:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-22 12:42:52 +0100 |
| commit | 81c0b52bd6301a7ded157b270097a8074c8f2d50 (patch) | |
| tree | 6acc5cd2f3a70e2e4c0342c8ff9d1e90ff07e408 | |
| parent | 7473238f7de28f9c85e364364c3155a3bbb877ac (diff) | |
| download | guix-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.scm | 4 |
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) |