gnu: vm: Increase size of VM image.
* gnu/system/vm.scm (system-qemu-image): Add 'disk-image-size' parameter; increase it.
This commit is contained in:
parent
5c0f184536
commit
22dd04383d
|
@ -437,8 +437,10 @@ such as /etc files."
|
||||||
tzdata
|
tzdata
|
||||||
guix))))
|
guix))))
|
||||||
|
|
||||||
(define* (system-qemu-image #:optional (os %demo-operating-system))
|
(define* (system-qemu-image #:optional (os %demo-operating-system)
|
||||||
"Return the derivation of a QEMU image of the GNU system."
|
#:key (disk-image-size (* 900 (expt 2 20))))
|
||||||
|
"Return the derivation of a QEMU image of DISK-IMAGE-SIZE bytes of the GNU
|
||||||
|
system as described by OS."
|
||||||
(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))
|
||||||
|
@ -464,7 +466,7 @@ such as /etc files."
|
||||||
(directory "/home/guest" 1000 100))))
|
(directory "/home/guest" 1000 100))))
|
||||||
(qemu-image #:grub-configuration grub.cfg
|
(qemu-image #:grub-configuration grub.cfg
|
||||||
#:populate populate
|
#:populate populate
|
||||||
#:disk-image-size (* 550 (expt 2 20))
|
#:disk-image-size disk-image-size
|
||||||
#:initialize-store? #t
|
#:initialize-store? #t
|
||||||
#:inputs-to-copy `(("system" ,os-drv)))))
|
#:inputs-to-copy `(("system" ,os-drv)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue