Mj (git.Git.Store.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 =

| Rd : < rd : unit > mode
| Wr : < wr : unit > mode
| 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