git.annexia.org
/
guestfs-browser.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
daa7463
..
fc9366a
100644
(file)
--- a/
slave_utils.ml
+++ b/
slave_utils.ml
@@
-18,8
+18,6
@@
open ExtList
open ExtString
open ExtList
open ExtString
-open CamomileLibrary
-open Default.Camomile
open Utils
open Utils
@@
-27,12
+25,7
@@
open Slave_types
open Printf
open Printf
-module C = Libvirt.Connect
-module Cond = Condition
-module D = Libvirt.Domain
module G = Guestfs
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 ()) (
let with_mount_ro g src (f : unit -> 'a) : 'a =
Std.finally (fun () -> g#umount_all ()) (