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