nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vm: Add support for registering closures to iso9660-image. 

* gnu/system/vm.scm (iso9660-image): Add support for registering closures.
This commit is contained in:
Christopher Baines 2017-09-03 11:48:20 +01:00
parent 309b8fe7e6
commit e375d3fab7
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/system/vm.scm
View File

@ -192,6 +192,7 @@ made available under the /xchg CIFS share."
os-drv os-drv
bootcfg-drv bootcfg-drv
bootloader bootloader
register-closures?
(inputs '())) (inputs '()))
"Return a bootable, stand-alone iso9660 image. "Return a bootable, stand-alone iso9660 image.
@ -207,8 +208,13 @@ INPUTS is a list of inputs (as for packages)."
(let ((inputs (let ((inputs
'#$(append (list qemu parted e2fsprogs dosfstools xorriso) '#$(append (list qemu parted e2fsprogs dosfstools xorriso)
(map canonical-package (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 ;; This variable is unused but allows us to add INPUTS-TO-COPY
;; as inputs. ;; as inputs.
(to-register (to-register
@ -222,6 +228,8 @@ INPUTS is a list of inputs (as for packages)."
#$bootcfg-drv #$bootcfg-drv
#$os-drv #$os-drv
"/xchg/guixsd.iso" "/xchg/guixsd.iso"
#:register-closures? #$register-closures?
#:closures graphs
#:volume-id #$file-system-label #:volume-id #$file-system-label
#:volume-uuid #$file-system-uuid) #:volume-uuid #$file-system-uuid)
(reboot)))) (reboot))))