Module Loose

type ('a, 's) io = ('a, 's) Carton.io
module type UID = sig ... end
type kind = [
  1. | `A
  2. | `B
  3. | `C
  4. | `D
]
type ('t, 'brk, 'error, 's) store = {
  1. map : 't -> 'brk -> pos:int64 -> int -> (Bigstringaf.t, 's) io;
  2. mem : 't -> 'brk -> (bool, 's) io;
  3. list : 't -> ('brk list, 's) io;
  4. append : 't -> 'brk -> Bigstringaf.t -> ((unit, 'error) Stdlib.result, 's) io;
  5. appendv : 't -> 'brk -> Bigstringaf.t list -> ((unit, 'error) Stdlib.result, 's) io;
}
type buffers = {
  1. window : De.window;
  2. lz : De.Lz77.window;
  3. queue : De.Queue.t;
  4. i : De.bigstring;
  5. o : De.bigstring;
  6. hdr : Cstruct.t;
}
module Make (Uid : UID) : sig ... end