Source file ordered.ml

1
2
3
4
5
6
7
let make (type t) (compare : t -> _) =
  (module struct
    type nonrec t = t

    let compare = compare
  end : Stdlib.Set.OrderedType
    with type t = t)