diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index 99628de709bcfbf9132392476a2b4fa8d6548850..4e7c439894e9550317073a55264f2e029396915a 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -261,6 +261,7 @@ (define* (qemu-image #:key (define* (system-disk-image os #:key + (name "disk-image") (file-system-type "ext4") (disk-image-size (* 900 (expt 2 20))) (volatile? #t)) @@ -296,7 +297,8 @@ (define file-systems-to-keep (mlet* %store-monad ((os-drv (operating-system-derivation os)) (grub.cfg (operating-system-grub.cfg os))) - (qemu-image #:grub-configuration grub.cfg + (qemu-image #:name name + #:grub-configuration grub.cfg #:disk-image-size disk-image-size #:disk-image-format "raw" #:file-system-type file-system-type