val make : data -> t
val node : t -> data
val hash : t -> int
- val uid : t -> int
+ val uid : t -> Uid.t
val equal : t -> t -> bool
end
module type S =
sig
type data
- type t = private { id : int;
- key : int;
+ type t = private { id : Uid.t;
+ key : int;
node : data }
val make : data -> t
val node : t -> data
val hash : t -> int
- val uid : t -> int
+ val uid : t -> Uid.t
val equal : t -> t -> bool
end