aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/vm.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-06-04 16:07:37 +0200
committerLudovic Courtès <ludo@gnu.org>2014-06-04 18:15:50 +0200
commit56ef7fcc50f9fdced7d65d95cd0ddf6c1263360c (patch)
tree7e6bcb66c9b65f45a76f6b83941739b57b658cd9 /gnu/system/vm.scm
parent2c5c696c39b2d80b1e1b1f477822a6711d779b71 (diff)
downloadguix-56ef7fcc50f9fdced7d65d95cd0ddf6c1263360c.tar
guix-56ef7fcc50f9fdced7d65d95cd0ddf6c1263360c.tar.gz
vm: Add #:name parameter for 'system-disk-image'.
* gnu/system/vm.scm (system-disk-image): Add #:name parameter; pass it to 'qemu-image'.
Diffstat (limited to 'gnu/system/vm.scm')
-rw-r--r--gnu/system/vm.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 99628de709..4e7c439894 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -261,6 +261,7 @@ the image."
(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 @@ to USB sticks meant to be read-only."
(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