From 22dd04383d6d8b96d69d3fd4dbfa9c6a329a1c43 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 11 Dec 2013 01:10:41 +0100 Subject: [PATCH] gnu: vm: Increase size of VM image. * gnu/system/vm.scm (system-qemu-image): Add 'disk-image-size' parameter; increase it. --- gnu/system/vm.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index 6c99fb1365..5932a22b99 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -437,8 +437,10 @@ such as /etc files." tzdata guix)))) -(define* (system-qemu-image #:optional (os %demo-operating-system)) - "Return the derivation of a QEMU image of the GNU system." +(define* (system-qemu-image #:optional (os %demo-operating-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 ((os-drv (operating-system-derivation os)) (os-dir -> (derivation->output-path os-drv)) @@ -464,7 +466,7 @@ such as /etc files." (directory "/home/guest" 1000 100)))) (qemu-image #:grub-configuration grub.cfg #:populate populate - #:disk-image-size (* 550 (expt 2 20)) + #:disk-image-size disk-image-size #:initialize-store? #t #:inputs-to-copy `(("system" ,os-drv)))))