Debug libvirt errors.

[guestfs-browser.git] / slave_utils.ml

diff --git a/slave_utils.ml b/slave_utils.ml
index daa7463..fc9366a 100644 (file)
--- a/slave_utils.ml
+++ b/slave_utils.ml
@@ -18,8 +18,6 @@
 
 open ExtList
 open ExtString
-open CamomileLibrary
-open Default.Camomile
 
 open Utils
 
@@ -27,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 ()) (