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

vm: Add #:name parameter for 'system-disk-image'. 

* gnu/system/vm.scm (system-disk-image): Add #:name parameter; pass it
  to 'qemu-image'.
This commit is contained in:
Ludovic Courtès 2014-06-04 16:07:37 +02:00
parent 2c5c696c39
commit 56ef7fcc50
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/system/vm.scm
View File

@ -261,6 +261,7 @@ the image."
(define* (system-disk-image os (define* (system-disk-image os
#:key #:key
(name "disk-image")
(file-system-type "ext4") (file-system-type "ext4")
(disk-image-size (* 900 (expt 2 20))) (disk-image-size (* 900 (expt 2 20)))
(volatile? #t)) (volatile? #t))
@ -296,7 +297,8 @@ to USB sticks meant to be read-only."
(mlet* %store-monad ((os-drv (operating-system-derivation os)) (mlet* %store-monad ((os-drv (operating-system-derivation os))
(grub.cfg (operating-system-grub.cfg os))) (grub.cfg (operating-system-grub.cfg os)))
(qemu-image #:grub-configuration grub.cfg (qemu-image #:name name
#:grub-configuration grub.cfg
#:disk-image-size disk-image-size #:disk-image-size disk-image-size
#:disk-image-format "raw" #:disk-image-format "raw"
#:file-system-type file-system-type #:file-system-type file-system-type