Parameter Make.Mj

include Carton_git.STORE with type +'a fiber = 'a Lwt.t
type t
type uid
type 'a fd
type error
type +'a fiber = 'a Lwt.t
val list : t -> uid list fiber
val length : 'm fd -> int64 fiber
include Smart_git.APPEND with type t := t and type uid := uid and type 'a fd := 'a fd and type error := error and type +'a fiber := 'a fiber
type 'a rd = < rd : unit.. > as 'a
type 'a wr = < wr : unit.. > as 'a
type 'a mode =
  1. | Rd : < rd : unit > mode
  2. | Wr : < wr : unit > mode
  3. | RdWr : < rd : unit ; wr : unit > mode
val pp_error : error Fmt.t
val create : ?trunc:bool -> mode:'a mode -> t -> uid -> ('a fd, error) Stdlib.result fiber
val map : t -> 'm rd fd -> pos:int64 -> int -> Bigstringaf.t
val append : t -> 'm wr fd -> string -> unit fiber
val move : t -> src:uid -> dst:uid -> (unit, error) Stdlib.result fiber
val close : t -> 'm fd -> (unit, error) Stdlib.result fiber
val reset : t -> (unit, error) Stdlib.result fiber