mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
scripts: system: Use the disk-image size argument for VM generation.
* guix/scripts/system.scm (system-derivation-for-action): Use the given image-size unconditionnaly when calling system-qemu-image/shared-store-script.
This commit is contained in:
parent
c37cd41764
commit
bce55cec88
1 changed files with 1 additions and 4 deletions
|
@ -710,10 +710,7 @@ (define* (system-derivation-for-action image action
|
|||
#:full-boot? full-boot?
|
||||
#:volatile? volatile?
|
||||
#:graphic? graphic?
|
||||
#:disk-image-size
|
||||
(if full-boot?
|
||||
image-size
|
||||
(* 70 (expt 2 20)))
|
||||
#:disk-image-size image-size
|
||||
#:mappings mappings))
|
||||
((image disk-image vm-image docker-image)
|
||||
(when (eq? action 'disk-image)
|
||||
|
|
Loading…
Reference in a new issue