Source

ocamlspot / xset.mli

Diff from to
 
 (* Set with binary custom search *)
 
-module type OrderedType = Set.OrderedType
+module type OrderedType = sig
+  include Set.OrderedType
+  val format : Format.formatter -> t -> unit
+end
 
 module type S = sig
   include Set.S
   val unsafe_binary : t -> (t * elt * t) option
   val unsafe_middle : t -> elt option
   val unsafe_find : elt -> t -> elt option
+  val unsafe_dump : Format.formatter -> t -> unit
 end
 
 module Make(Ord : OrderedType) : S