sig
type ('a, 'b) t
type ('a, 'b) sexpable = ('a, 'b) t
val sexp_of_t :
('a -> Sexplib.Sexp.t) ->
('b -> Sexplib.Sexp.t) -> ('a, 'b) sexpable -> Sexplib.Sexp.t
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) ->
(Sexplib.Sexp.t -> 'b) -> Sexplib.Sexp.t -> ('a, 'b) sexpable
type ('a, 'b) binable = ('a, 'b) t
val bin_size_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Size.sizer2
val bin_write_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Map_to_safe.writer2
val bin_write_t_ :
('a, 'b, ('a, 'b) binable) Bin_prot.Unsafe_write_c.writer2
val bin_read_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Map_to_safe.reader2
val bin_read_t_ : ('a, 'b, ('a, 'b) binable) Bin_prot.Unsafe_read_c.reader2
val bin_read_t__ :
('a, 'b, int -> ('a, 'b) binable) Bin_prot.Unsafe_read_c.reader2
val bin_writer_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.writer
val bin_reader_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.reader
val bin_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.t
val create : int -> ('a, 'b) Hashtree.t
val add : ('a, 'b) Hashtree.t -> key:'a -> data:'b -> unit
val remove : ('a, 'b) Hashtree.t -> 'a -> unit
val find : ('a, 'b) Hashtree.t -> 'a -> 'b option
val length : ('a, 'b) Hashtree.t -> int
val fold :
('a, 'b) Hashtree.t -> init:'c -> f:(key:'a -> data:'b -> 'c -> 'c) -> 'c
module type Key =
sig
type t
type sexpable = t
val sexp_of_t : sexpable -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> sexpable
val hash : Hashtree.Key.t -> int
val compare : Hashtree.Key.t -> Hashtree.Key.t -> int
end
module type S =
sig
module Key : Key
type 'a t
type 'a sexpable = 'a t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a sexpable -> Sexplib.Sexp.t
val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a sexpable
val create : int -> 'a Hashtree.S.t
val add : 'a Hashtree.S.t -> key:Hashtree.Key.t -> data:'a -> unit
val remove : 'a Hashtree.S.t -> Hashtree.Key.t -> unit
val find : 'a Hashtree.S.t -> Hashtree.Key.t -> 'a option
val length : 'a Hashtree.S.t -> int
val fold :
'a Hashtree.S.t ->
init:'b -> f:(key:Hashtree.Key.t -> data:'a -> 'b -> 'b) -> 'b
end
module Make :
functor (Key : Key) ->
sig
module Key :
sig
type t = Key.t
type sexpable = t
val sexp_of_t : sexpable -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> sexpable
val hash : t -> int
val compare : t -> t -> int
end
type 'a t
type 'a sexpable = 'a t
val sexp_of_t :
('a -> Sexplib.Sexp.t) -> 'a sexpable -> Sexplib.Sexp.t
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a sexpable
val create : int -> 'a t
val add : 'a t -> key:Key.t -> data:'a -> unit
val remove : 'a t -> Key.t -> unit
val find : 'a t -> Key.t -> 'a option
val length : 'a t -> int
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
end
end