me
/
guix
Archived
1
0
Fork 0
Code

vm: Provide a root partition for the freestanding VM image. 

Fixes a regression introduced in 83bcd0b.

* gnu/system/vm.scm (system-qemu-image): Override the 'file-systems'
  field of OS.  Add #:file-system-type parameter and honor it.
master
Ludovic Courtès 2014-05-03 12:45:43 +02:00
parent 03ddfaf5fb
commit 66f23d6621
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/system/vm.scm
View File

@ -296,9 +296,17 @@ basic contents of the root file system of OS."
(operating-system-users os)))))) (operating-system-users os))))))
(define* (system-qemu-image os (define* (system-qemu-image os
#:key (disk-image-size (* 900 (expt 2 20)))) #:key
"Return the derivation of a QEMU image of DISK-IMAGE-SIZE bytes of the GNU (file-system-type "ext4")
system as described by OS." (disk-image-size (* 900 (expt 2 20))))
"Return the derivation of a freestanding QEMU image of DISK-IMAGE-SIZE bytes
of the GNU system as described by OS."
(let ((os (operating-system (inherit os)
;; The mounted file systems are under our control.
(file-systems (list (file-system
(mount-point "/")
(device "/dev/sda1")
(type file-system-type)))))))
(mlet* %store-monad (mlet* %store-monad
((os-drv (operating-system-derivation os)) ((os-drv (operating-system-derivation os))
(os-dir -> (derivation->output-path os-drv)) (os-dir -> (derivation->output-path os-drv))
@ -307,8 +315,9 @@ system as described by OS."
(qemu-image #:grub-configuration grub.cfg (qemu-image #:grub-configuration grub.cfg
#:populate populate #:populate populate
#:disk-image-size disk-image-size #:disk-image-size disk-image-size
#:file-system-type file-system-type
#:initialize-store? #t #:initialize-store? #t
#:inputs-to-copy `(("system" ,os-drv))))) #:inputs-to-copy `(("system" ,os-drv))))))
(define (virtualized-operating-system os) (define (virtualized-operating-system os)
"Return an operating system based on OS suitable for use in a virtualized "Return an operating system based on OS suitable for use in a virtualized