diff mbox series

[bug#52550,09/10] scripts: system: Use the disk-image size argument for VM generation.

Message ID 20211216130649.30285-9-othacehe@gnu.org
State Accepted
Headers show
Series Further work on the image API. | expand

Commit Message

Mathieu Othacehe Dec. 16, 2021, 1:06 p.m. UTC 
* guix/scripts/system.scm (system-derivation-for-action): Use the given
image-size unconditionnaly when calling system-qemu-image/shared-store-script.
---
 guix/scripts/system.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)
diff mbox series

Patch

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 @@  (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)