jon.recoil.org

Source file replace_polymorphic_compare_intf.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
[@@@warning "-preprocessor"]

module Definitions = struct
  module type S = sig
    type t [@@deriving specialize_polymorphic_compare]
  end
end

module type Replace_polymorphic_compare = sig @@ portable
  include module type of struct
    include Definitions
  end

  module Bool_replace_polymorphic_compare : S with type t := bool
  module Bytes_replace_polymorphic_compare : S with type t := bytes
  module Char_replace_polymorphic_compare : S with type t := char
  module Float_replace_polymorphic_compare : S with type t := float
  module Int32_replace_polymorphic_compare : S with type t := int32
  module Int64_replace_polymorphic_compare : S with type t := int64
  module Int_replace_polymorphic_compare : S with type t := int
  module Nativeint_replace_polymorphic_compare : S with type t := nativeint
  module String_replace_polymorphic_compare : S with type t := string
  module Uchar_replace_polymorphic_compare : S with type t := Stdlib.Uchar.t
end