diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-08-13 20:42:06 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-08-13 20:42:06 +0200 |
| commit | 462ad9f56b9665b8d22960acee73ad91f1052c9c (patch) | |
| tree | 814be463d6d0517e7db9b9e6f15dbc7516955674 /guix/scripts/deploy.scm | |
| parent | 7f5f61ae99321a7a6e08b0100cd428e11ce6a837 (diff) | |
| parent | 1b1b006afd31c5526f34d157baef492c7dde2e9c (diff) | |
Merge branch 'master' into core-updates
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) |