summaryrefslogtreecommitdiff
path: root/gnu/system/vm.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2017-09-03 11:48:20 +0100
committerChristopher Baines <mail@cbaines.net>2017-09-06 08:43:48 +0100
commite375d3fab7a64246f9c1caa4b23a280f5b84ebc6 (patch)
tree819c79804928019fa0a7158fb651e7abf8c1469e /gnu/system/vm.scm
parent309b8fe7e65c39e04b7a5f89adb5a0a72867cdff (diff)
downloadpatches-e375d3fab7a64246f9c1caa4b23a280f5b84ebc6.tar
patches-e375d3fab7a64246f9c1caa4b23a280f5b84ebc6.tar.gz
vm: Add support for registering closures to iso9660-image.
* gnu/system/vm.scm (iso9660-image): Add support for registering closures.
Diffstat (limited to 'gnu/system/vm.scm')
-rw-r--r--gnu/system/vm.scm10
1 files changed, 9 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index b3da118765..f7a711a72b 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -192,6 +192,7 @@ made available under the /xchg CIFS share."
os-drv
bootcfg-drv
bootloader
+ register-closures?
(inputs '()))
"Return a bootable, stand-alone iso9660 image.
@@ -207,8 +208,13 @@ INPUTS is a list of inputs (as for packages)."
(let ((inputs
'#$(append (list qemu parted e2fsprogs dosfstools xorriso)
(map canonical-package
- (list sed grep coreutils findutils gawk))))
+ (list sed grep coreutils findutils gawk))
+ (if register-closures? (list guix) '())))
+
+ (graphs '#$(match inputs
+ (((names . _) ...)
+ names)))
;; This variable is unused but allows us to add INPUTS-TO-COPY
;; as inputs.
(to-register
@@ -222,6 +228,8 @@ INPUTS is a list of inputs (as for packages)."
#$bootcfg-drv
#$os-drv
"/xchg/guixsd.iso"
+ #:register-closures? #$register-closures?
+ #:closures graphs
#:volume-id #$file-system-label
#:volume-uuid #$file-system-uuid)
(reboot))))