diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-08-08 00:35:37 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-08-08 00:35:37 +0200 |
| commit | 8e7f97b9ffee10af3cf16958ebc0a7d410a19ca8 (patch) | |
| tree | b3836f9cea849fd8bfb61a77ba225a0054babe58 /guix/scripts/deploy.scm | |
| parent | fa228db78bc9dcb0e7da607dd8783224c76d7ef5 (diff) | |
| parent | ba7ff983d613f735ee270f0b0e3c5dba5cbeda3c (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/scripts/deploy.scm')
| -rw-r--r-- | guix/scripts/deploy.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm index 52bba3f3bf..ebc99e52cc 100644 --- a/guix/scripts/deploy.scm +++ b/guix/scripts/deploy.scm @@ -19,6 +19,7 @@ (define-module (guix scripts deploy) #:use-module (gnu machine) + #:use-module (guix discovery) #:use-module (guix scripts) #:use-module (guix scripts build) #:use-module (guix store) @@ -74,7 +75,10 @@ Perform the deployment specified by FILE.\n")) (define (load-source-file file) "Load FILE as a user module." - (let ((module (make-user-module '((gnu) (gnu machine) (gnu machine ssh))))) + (let* ((guix-path (dirname (search-path %load-path "guix.scm"))) + (environment-modules (scheme-modules* guix-path "gnu/machine")) + (module (make-user-module (append '((gnu) (gnu machine)) + environment-modules)))) (load* file module))) (define (guix-deploy . args) |