diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2019-07-20 12:45:34 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2019-07-24 20:34:01 +0800 |
| commit | 2fa23d8f5c4db6be583f0bb0eeba0368f1513ec7 (patch) | |
| tree | f74e37274a9ad2a6105ad6486aa044fd41d2783b /guix | |
| parent | 7304d5623ab5cc35289cb1535cbd0d8a37691fac (diff) | |
deploy: Honor '--no-grafts'.
* guix/scripts/deploy.scm (guix-deploy): Parameterize '%graft?'.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/deploy.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm index 978cfb2a81..3acd32eaa7 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)))) |