Adapt for modified Xml.xpathobj_node API in libguestfs.

[virt-v2v-test-cases-nonfree.git] / windows-virtio / win_81pro_x86_64.ml

diff --git a/windows-virtio/win_81pro_x86_64.ml b/windows-virtio/win_81pro_x86_64.ml
index a9e3d7b..47c03b6 100644 (file)
--- a/windows-virtio/win_81pro_x86_64.ml
+++ b/windows-virtio/win_81pro_x86_64.ml
@@ -8,7 +8,7 @@ let check_virtio_blk g root xml =
   let xpath = Xml.xpath_eval_expression xpathctx "/domain/devices/disk[@device=\"disk\"]/target/@bus" in
   let nr_nodes = Xml.xpathobj_nr_nodes xpath in
   assert (nr_nodes = 1);
-  let node = Xml.xpathobj_node xml xpath 0 in
+  let node = Xml.xpathobj_node xpath 0 in
   let node = Xml.node_as_string node in
   assert (node = "virtio")