|
|
|
(*
|
|
|
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
|
|
|
*
|
|
|
|
* This source code is licensed under the MIT license found in the
|
|
|
|
* LICENSE file in the root directory of this source tree.
|
|
|
|
*)
|
|
|
|
|
|
|
|
include module type of NSSet_intf
|
|
|
|
|
|
|
|
type ('elt, 'compare_elt) t [@@deriving compare, equal, sexp]
|
|
|
|
type 'compare_elt compare [@@deriving compare, equal, sexp]
|
|
|
|
|
|
|
|
module Make (Elt : sig
|
|
|
|
type t [@@deriving compare, equal, sexp_of]
|
|
|
|
end) : S with type elt = Elt.t
|
|
|
|
|
|
|
|
module Make_from_Comparer (Elt : sig
|
|
|
|
type t [@@deriving equal, sexp_of]
|
|
|
|
|
|
|
|
include Comparer.S with type t := t
|
|
|
|
end) :
|
|
|
|
S
|
|
|
|
with type elt = Elt.t
|
|
|
|
with type compare_elt = Elt.compare
|
|
|
|
with type compare = Elt.compare compare
|
|
|
|
with type t = (Elt.t, Elt.compare) t
|