mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

v2v: Don't open DOM module in output_rhev and output_vdsm.

Browse Source 
I think this is left over from before we moved the OVF code
out to its own module.
This commit is contained in:
Richard W.M. Jones
2016-07-07 16:12:18 +01:00
parent 442092a305
commit 6a3416361b
2 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
v2v/output_rhev.ml
View File

@@ -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

3
v2v/output_vdsm.ml
View File

@@ -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