module Make: | Parameters: |
|
module Key:Hashtree.Key
type 'a t
include Sexpable.S1
val create : int -> 'a tval add : 'a t -> key:Hashtree.Key.t -> data:'a -> unitval remove : 'a t -> Hashtree.Key.t -> unitval find : 'a t -> Hashtree.Key.t -> 'a optionval length : 'a t -> intval fold : 'a t ->
init:'b -> f:(key:Hashtree.Key.t -> data:'a -> 'b -> 'b) -> 'b