~ruther/guix-local: vm: Add #:name parameter for 'system-disk-image'.

56ef7fcc50f9fdced7d65d95cd0ddf6c1263360c — Ludovic Courtès 12 years ago 2c5c696

vm: Add #:name parameter for 'system-disk-image'.

* gnu/system/vm.scm (system-disk-image): Add #:name parameter; pass it
  to 'qemu-image'.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M gnu/system/vm.scm

M gnu/system/vm.scm => gnu/system/vm.scm +3 -1

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