me/guix
Archived
1
0
Fork 0
Code Activity

deploy: Use all machine modules when loading deployment

Browse source 
* guix/scripts/deploy.scm (load-source-file): Enumerate and include all
submodules of (gnu machine) when loading the provided deployment
specification.
This commit is contained in:
Jakob L. Kreuze 2019-08-07 08:43:27 -04:00 • committed by Christopher Lemmer Webber
parent ec12235ce2
commit 55e238f2ab
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/scripts/deploy.scm
View file

@ -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)