You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
774 B
27 lines
774 B
3 years ago
|
(*
|
||
|
|
* 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 NSMap_intf
|
||
|
|
|
||
|
|
type ('key, +'a, 'compare_key) t [@@deriving compare, equal, sexp]
|
||
|
|
type ('compare_key, 'compare_a) compare [@@deriving compare, equal, sexp]
|
||
|
|
|
||
|
|
module Make (Key : sig
|
||
|
|
type t [@@deriving compare, equal, sexp_of]
|
||
|
|
end) : S with type key = Key.t
|
||
|
|
|
||
|
|
module Make_from_Comparer (Key : sig
|
||
|
|
type t [@@deriving equal, sexp_of]
|
||
|
|
|
||
|
|
include Comparer.S with type t := t
|
||
|
|
end) :
|
||
|
|
S
|
||
|
|
with type key = Key.t
|
||
|
|
with type compare_key = Key.compare
|
||
|
|
with type 'compare_a compare = (Key.compare, 'compare_a) compare
|
||
|
|
with type 'a t = (Key.t, 'a, Key.compare) t
|