aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-12-11 01:10:41 +0100
committerLudovic Courtès <ludo@gnu.org>2013-12-11 01:10:41 +0100
commit22dd04383d6d8b96d69d3fd4dbfa9c6a329a1c43 (patch)
treeadf59ecc5a92894e472103e1bdd4d684c0b678c2
parent5c0f1845364fe8a5657a9e5a33090ea0ba781ea9 (diff)
downloadguix-22dd04383d6d8b96d69d3fd4dbfa9c6a329a1c43.tar
guix-22dd04383d6d8b96d69d3fd4dbfa9c6a329a1c43.tar.gz
gnu: vm: Increase size of VM image.
* gnu/system/vm.scm (system-qemu-image): Add 'disk-image-size' parameter; increase it.
-rw-r--r--gnu/system/vm.scm8
1 files 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)))))