diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-12-11 01:10:41 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-12-11 01:10:41 +0100 |
commit | 22dd04383d6d8b96d69d3fd4dbfa9c6a329a1c43 (patch) | |
tree | adf59ecc5a92894e472103e1bdd4d684c0b678c2 | |
parent | 5c0f1845364fe8a5657a9e5a33090ea0ba781ea9 (diff) | |
download | guix-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.scm | 8 |
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))))) |