1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
module Stable = struct
module V1 = struct
include (
String.Stable.V1 :
sig
type t = string
[@@deriving bin_io, compare, equal, hash, sexp, sexp_grammar, stable_witness]
include
Comparable.Stable.V1.With_stable_witness.S
with type comparable := t
with type comparator_witness = String.Stable.V1.comparator_witness
val comparator : (t, comparator_witness) Comparator.t
include Hashable.Stable.V1.With_stable_witness.S with type key := t
end)
end
end
open! Import
open! Std_internal
include Filename_base
include (
String :
sig
type t = string [@@deriving bin_io]
include
Comparable.S with type t := t and type comparator_witness := comparator_witness
include Hashable.S with type t := t
end)