[bug#29409] [PATCH 2/4] build: vm: Use qemu drive device parameter.

[m . othacehe]

From: Mathieu Othacehe <address@hidden>

* gnu/build/vm.scm (load-in-linux-vm): As per network arguments, use device
parameter to define drive device.
---
 gnu/build/vm.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm
index 9e868f6..0b1b9da 100644
--- a/gnu/build/vm.scm
+++ b/gnu/build/vm.scm
@@ -126,10 +126,12 @@ the #:references-graphs parameter of 'derivation'."
                   "-initrd" initrd
                   "-append" (string-append "console=ttyS0 --load="
                                            builder)
+                  "-device" "virtio-blk,drive=myhd"
                   (append
                    (if make-disk-image?
-                       `("-drive" ,(string-append "file=" output
-                                                  ",if=virtio"))
+                       `("-drive" ,(string-append "if=none,file=" output
+                                                  ",format=" disk-image-format
+                                                  ",id=myhd"))
                        '())
                    ;; Only enable kvm if we see /dev/kvm exists.
                    ;; This allows users without hardware virtualization to 
still
-- 
2.7.4