01/02: deploy: Honor '--no-grafts'.

[guix-commits]

iyzsong pushed a commit to branch master
in repository guix.

commit 2fa23d8f5c4db6be583f0bb0eeba0368f1513ec7
Author: 宋文武 <address@hidden>
Date:   Sat Jul 20 12:45:34 2019 +0800

    deploy: Honor '--no-grafts'.
    
    * guix/scripts/deploy.scm (guix-deploy): Parameterize '%graft?'.
---
 guix/scripts/deploy.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm
index 978cfb2..3acd32e 100644
--- a/guix/scripts/deploy.scm
+++ b/guix/scripts/deploy.scm
@@ -23,6 +23,7 @@
   #:use-module (guix scripts build)
   #:use-module (guix store)
   #:use-module (guix ui)
+  #:use-module (guix grafts)
   #:use-module (ice-9 format)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-37)
@@ -80,5 +81,6 @@ Perform the deployment specified by FILE.\n"))
       (set-build-options-from-command-line store opts)
       (for-each (lambda (machine)
                   (info (G_ "deploying to ~a...") (machine-display-name 
machine))
-                  (run-with-store store (deploy-machine machine)))
+                  (parameterize ((%graft? (assq-ref opts 'graft?)))
+                    (run-with-store store (deploy-machine machine))))
                 machines))))