mothacehe pushed a commit to branch wip-image
in repository guix.
commit 9c0f7bdc5aae5d5fbe4c5b7759aed4af1cc1c624
Author: Mathieu Othacehe <[email protected]>
AuthorDate: Thu Dec 16 13:46:38 2021 +0100
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.
---
guix/scripts/system.scm | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a73fe55..f7e17d2 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)
