Allow use of virtio-blk disk bus.

It's documented, but didn't work before.

diff --git a/mclu_boot.ml b/mclu_boot.ml
index 625aea2..8e7f6a3 100644 (file)
--- a/mclu_boot.ml
+++ b/mclu_boot.ml
@@ -276,6 +276,8 @@ Try: `mclu on %s'\n" hostname hostname;
     match template_info.Template.disk_bus with
     | Some "ide" ->
       "      <target dev='sda' bus='ide'/>\n"
+    | Some "virtio" ->
+      "      <target dev='vda' bus='virtio'/>\n"
     | Some "virtio-scsi" | None ->
       "      <target dev='sda' bus='scsi'/>\n"
     | Some bus ->