Ignore warning 3 about String.set (for OCaml 4.02).

[guestfs-browser.git] / slave_utils.ml

diff --git a/slave_utils.ml b/slave_utils.ml
index 41d64ac..fc9366a 100644 (file)
--- a/slave_utils.ml
+++ b/slave_utils.ml
@@ -25,12 +25,7 @@ open Slave_types
 
 open Printf
 
-module C = Libvirt.Connect
-module Cond = Condition
-module D = Libvirt.Domain
 module G = Guestfs
-module M = Mutex
-module Q = Queue
 
 let with_mount_ro g src (f : unit -> 'a) : 'a =
   Std.finally (fun () -> g#umount_all ()) (