set_ext.ml
multicore-bench
1 2 3 let make (type t) (compare : t -> _) = let (module Elt) = Ordered.make compare in (module Set.Make (Elt) : Set.S with type elt = t)
1 2 3
let make (type t) (compare : t -> _) = let (module Elt) = Ordered.make compare in (module Set.Make (Elt) : Set.S with type elt = t)