diff options
| author | Roel Janssen <roel@gnu.org> | 2016-08-28 16:22:19 +0200 |
|---|---|---|
| committer | Roel Janssen <roel@gnu.org> | 2016-08-28 16:22:19 +0200 |
| commit | fd59105c49965db956fac73c68d8b00d068f5d5c (patch) | |
| tree | de18e4017313e87e4b2669bb33f9b828da539834 /guix/scripts/environment.scm | |
| parent | d03db7434b5b2f1e588c65805d38faea973c3cf0 (diff) | |
| download | guix-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/environment.scm')
| -rw-r--r-- | guix/scripts/environment.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm index 9f72b7bf24..0c69bfc9d3 100644 --- a/guix/scripts/environment.scm +++ b/guix/scripts/environment.scm @@ -226,7 +226,7 @@ COMMAND or an interactive shell in that environment.\n")) (alist-cons 'ad-hoc? #t 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)))) (option '(#\s "system") #t #f (lambda (opt name arg result) (alist-cons 'system arg |