X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=slave_utils.ml;h=fc9366a89900b0fa77af3a6960d8adcaba56e506;hb=f91c6fe39b0c5b016758f85bdeee28911314a9bd;hp=41d64ac189fa15480789dd029e5fb2a878b5d8d0;hpb=f0a4c05b84a29abe171d0b82d5f6305606b3ce8d;p=guestfs-browser.git

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