type 'a t = {status : int;conn : conn;
}val make : int -> conn -> 'a t Lwt.tval err : conn -> string -> 'a t Lwt.tval write : 'a Irmin.Type.t -> 'a -> 'a t -> 'a t Lwt.tval v : conn -> 'a Irmin.Type.t -> 'a -> 'a t Lwt.tval ok : conn -> unit t Lwt.tval result :
conn ->
'a Irmin.Type.t ->
('a, [ `Msg of string ]) Stdlib.Result.t ->
'a t Lwt.tval finish : 'a t -> unit Lwt.t