nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

guix system: Reduce size of image produced for 'vm' action. 

This reduces the size of the image produced by 'guix system vm' from
26 MiB to 9 MiB.

* gnu/system/vm.scm (system-qemu-image/shared-store):
(system-qemu-image/shared-store-script): Change the default
value of #:disk-image-size to 30 MiB when not FULL-BOOT?.
* guix/scripts/system.scm (system-derivation-for-action): Likewise for
the 'vm' action.
This commit is contained in:
Ludovic Courtès 2016-04-28 23:04:52 +02:00
parent 99a0044614
commit 4c0416ae17
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/system/vm.scm
View File

@ -425,7 +425,7 @@ environment with the store shared with the host. MAPPINGS is a list of
os
#:key
full-boot?
(disk-image-size (* (if full-boot? 500 15) (expt 2 20))))
(disk-image-size (* (if full-boot? 500 30) (expt 2 20))))
"Return a derivation that builds a QEMU image of OS that shares its store
with the host.
@ -480,7 +480,7 @@ with '-virtfs' options for the host file systems listed in SHARED-FS."
(mappings '())
full-boot?
(disk-image-size
(* (if full-boot? 500 15)
(* (if full-boot? 500 30)
(expt 2 20))))
"Return a derivation that builds a script to run a virtual machine image of
OS that shares its store with the host.

5
guix/scripts/system.scm
View File

@ -477,7 +477,10 @@ PATTERN, a string. When PATTERN is #f, display all the system generations."
((vm)
(system-qemu-image/shared-store-script os
#:full-boot? full-boot?
#:disk-image-size image-size
#:disk-image-size
(if full-boot?
image-size
(* 30 (expt 2 20)))
#:mappings mappings))
((disk-image)
(system-disk-image os #:disk-image-size image-size))))