summaryrefslogtreecommitdiff
path: root/guix/scripts/archive.scm
diff options
context:
space:
mode:
authorRoel Janssen <roel@gnu.org>2016-08-28 16:22:19 +0200
committerRoel Janssen <roel@gnu.org>2016-08-28 16:22:19 +0200
commitfd59105c49965db956fac73c68d8b00d068f5d5c (patch)
treede18e4017313e87e4b2669bb33f9b828da539834 /guix/scripts/archive.scm
parentd03db7434b5b2f1e588c65805d38faea973c3cf0 (diff)
downloadguix-patches-fd59105c49965db956fac73c68d8b00d068f5d5c.tar
guix-patches-fd59105c49965db956fac73c68d8b00d068f5d5c.tar.gz
guix scripts: Disable grafting on dry runs.
* guix/scripts/archive.scm, guix/scripts/build.scm, guix/scripts/environment.scm, guix/scripts/system.scm, guix/scripts/package.scm: Disable grafting when a dry-run parameter is given.
Diffstat (limited to 'guix/scripts/archive.scm')
-rw-r--r--guix/scripts/archive.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/archive.scm b/guix/scripts/archive.scm
index e06c38aaab..8c7322d617 100644
--- a/guix/scripts/archive.scm
+++ b/guix/scripts/archive.scm
@@ -162,7 +162,7 @@ Export/import one or more packages from/to the store.\n"))
(alist-cons 'expression arg result)))
(option '(#\n "dry-run") #f #f
(lambda (opt name arg result)
- (alist-cons 'dry-run? #t result)))
+ (alist-cons 'dry-run? #t (alist-cons 'graft? #f result))))
%standard-build-options))