X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=slave_utils.ml;h=fc9366a89900b0fa77af3a6960d8adcaba56e506;hb=40df878c7a7427b6e24a204c914dfe1b7bb2f1f4;hp=daa7463f3764c54f01e47ce7a5948d6ed2eb2801;hpb=4fa4ca7430421c477e7f813819a8a70279de0a65;p=guestfs-browser.git

diff --git a/slave_utils.ml b/slave_utils.ml
index daa7463..fc9366a 100644
--- 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 ()) (