me/guix
Archived
1
0
Fork 0
Code Activity

gnu: vm: Increase size of VM image.

Browse source 
* gnu/system/vm.scm (system-qemu-image): Add 'disk-image-size'
  parameter; increase it.
This commit is contained in:
Ludovic Courtès 2013-12-11 01:10:41 +01:00
parent 5c0f184536
commit 22dd04383d
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/system/vm.scm
View file

@ -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)))))