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

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