From 6aa260af122ce445c2b41c2ce5f487724feea917 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 8 Nov 2014 14:49:13 +0100 Subject: vm: Fix 'vm --full-boot' to produce a sufficient disk image. * gnu/system/vm.scm (system-qemu-image/shared-store): Add #:disk-image-size and #:full-boot? parameters and honor them. Pass '#:copy-inputs? full-boot?', and change #:inputs argument. * guix/scripts/system.scm (system-derivation-for-action): Pass #:disk-image-size to 'system-qemu-image/shared-store'. * doc/guix.texi (Invoking guix system): Mention use of '--image-size' in conjunction with '--full-boot'. --- guix/scripts/system.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix') diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 7eb86c293d..ebad13e5e0 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -258,7 +258,9 @@ it atomically, and then run OS's activation script." ((vm-image) (system-qemu-image os #:disk-image-size image-size)) ((vm) - (system-qemu-image/shared-store-script os #:full-boot? full-boot?)) + (system-qemu-image/shared-store-script os + #:full-boot? full-boot? + #:disk-image-size image-size)) ((disk-image) (system-disk-image os #:disk-image-size image-size)))) -- cgit v1.2.3