diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-12-16 13:46:38 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-12-23 10:54:00 +0100 |
| commit | bce55cec880dba2f7fa193be2e1240f5316e25cd (patch) | |
| tree | de2317888d23a3bf3ee66d17a56bf160832a2159 | |
| parent | c37cd417644b010c39d4d7ffb46dffd7b862aaa5 (diff) | |
| download | guix-bce55cec880dba2f7fa193be2e1240f5316e25cd.tar guix-bce55cec880dba2f7fa193be2e1240f5316e25cd.tar.gz | |
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.
| -rw-r--r-- | guix/scripts/system.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index a73fe55418..f7e17d2db4 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -710,10 +710,7 @@ checking this by themselves in their 'check' procedure." #: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) |