Followup of commit 063af7f987e2c010fbcf3535f3b278b7397c7089. --- v2v/output_vdsm.ml | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/v2v/output_vdsm.ml b/v2v/output_vdsm.ml index 6619eee..39f722b 100644 --- a/v2v/output_vdsm.ml +++ b/v2v/output_vdsm.ml @@ -90,9 +90,7 @@ object dd_mp <- mp; dd_uuid <- uuid; - if verbose () then - eprintf "VDSM: DD mountpoint: %s\nVDSM: DD UUID: %s\n%!" - dd_mp dd_uuid; + debug "VDSM: DD mountpoint: %s\nVDSM: DD UUID: %s" dd_mp dd_uuid; (* Note that VDSM has to create all these directories. *) let images_dir = dd_mp // dd_uuid // "images" in @@ -109,8 +107,7 @@ object error (f_"OVF (metadata) directory (%s) does not exist or is not a directory") vdsm_params.ovf_output; - if verbose () then - eprintf "VDSM: OVF (metadata) directory: %s\n%!" vdsm_params.ovf_output; + debug "VDSM: OVF (metadata) directory: %s" vdsm_params.ovf_output; (* The final directory structure should look like this: * /<MP>/<ESD_UUID>/images/ @@ -129,8 +126,7 @@ object let ov_sd = ov.ov_sd in let target_file = images_dir // image_uuid // vol_uuid in - if verbose () then - eprintf "VDSM: will export %s to %s\n%!" ov_sd target_file; + debug "VDSM: will export %s to %s" ov_sd target_file; { t with target_file = target_file } ) (combine3 targets vdsm_params.image_uuids vdsm_params.vol_uuids) in -- 2.5.5