[Libguestfs] [PATCH v3 7/8] v2v: Don't open DOM module in output_rhev and output_vdsm.

[Richard W.M. Jones]

I think this is left over from before we moved the OVF code
out to its own module.
---
 v2v/output_rhev.ml | 3 +--
 v2v/output_vdsm.ml | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/v2v/output_rhev.ml b/v2v/output_rhev.ml
index 5277456..e45043b 100644
--- a/v2v/output_rhev.ml
+++ b/v2v/output_rhev.ml
@@ -24,7 +24,6 @@ open Printf
 
 open Types
 open Utils
-open DOM
 
 let rec mount_and_check_storage_domain domain_class os =
   (* The user can either specify -os nfs:/export, or a local directory
@@ -276,7 +275,7 @@ object
     let dir = esd_mp // esd_uuid // "master" // "vms" // vm_uuid in
     Changeuid.mkdir changeuid_t dir 0o755;
     let file = dir // vm_uuid ^ ".ovf" in
-    Changeuid.output changeuid_t file (fun chan -> doc_to_chan chan ovf);
+    Changeuid.output changeuid_t file (fun chan -> DOM.doc_to_chan chan ovf);
 
     (* Finished, so don't delete the target directory on exit. *)
     delete_target_directory <- false
diff --git a/v2v/output_vdsm.ml b/v2v/output_vdsm.ml
index 39f722b..7cd94c0 100644
--- a/v2v/output_vdsm.ml
+++ b/v2v/output_vdsm.ml
@@ -24,7 +24,6 @@ open Printf
 
 open Types
 open Utils
-open DOM
 
 type vdsm_params = {
   image_uuids : string list;
@@ -171,7 +170,7 @@ object
     (* Write it to the metadata file. *)
     let file = vdsm_params.ovf_output // vdsm_params.vm_uuid ^ ".ovf" in
     let chan = open_out file in
-    doc_to_chan chan ovf;
+    DOM.doc_to_chan chan ovf;
     close_out chan
 end
 
-- 
2.7.4