[Libguestfs] [PATCH 3/7] v2v: utils: Don't open Types module.

[Richard W.M. Jones]

---
 v2v/utils.ml | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/v2v/utils.ml b/v2v/utils.ml
index 2a668ec..f46fccb 100644
--- a/v2v/utils.ml
+++ b/v2v/utils.ml
@@ -23,8 +23,6 @@ open Printf
 open Common_gettext.Gettext
 open Common_utils
 
-open Types
-
 let quote = Filename.quote
 
 (* Quote XML <element attr='...'> content.  Note you must use single
@@ -121,13 +119,13 @@ let kvm_arch = function
 
 (* Does qemu support the given sound card? *)
 let qemu_supports_sound_card = function
-  | AC97
-  | ES1370
-  | ICH6
-  | ICH9
-  | PCSpeaker
-  | SB16
-  | USBAudio
+  | Types.AC97
+  | Types.ES1370
+  | Types.ICH6
+  | Types.ICH9
+  | Types.PCSpeaker
+  | Types.SB16
+  | Types.USBAudio
     -> true
 
 (* Find the UEFI firmware. *)
@@ -164,7 +162,7 @@ let find_uefi_firmware guest_arch =
   specific Windows flavor of the current guest.
  *)
 let virtio_iso_path_matches_guest_os path inspect =
-  let { i_major_version = os_major; i_minor_version = os_minor;
+  let { Types.i_major_version = os_major; i_minor_version = os_minor;
         i_arch = arch; i_product_variant = os_variant } = inspect in
   try
     (* Lowercased path, since the ISO may contain upper or lowercase path
-- 
2.5.0