open ExtList
open ExtString
-open CamomileLibrary
-open Default.Camomile
open Utils
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 ()) (