diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-09-03 11:48:20 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-09-06 08:43:48 +0100 |
| commit | e375d3fab7a64246f9c1caa4b23a280f5b84ebc6 (patch) | |
| tree | 819c79804928019fa0a7158fb651e7abf8c1469e /gnu | |
| parent | 309b8fe7e65c39e04b7a5f89adb5a0a72867cdff (diff) | |
| download | guix-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')
| -rw-r--r-- | gnu/system/vm.scm | 10 |
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)))) |