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
open! Import
module T = struct
type t = |
let unreachable_code = function
| (_ : t) -> .
;;
let all = []
let hash_fold_t _ t = unreachable_code t
let hash = unreachable_code
let compare a _ = unreachable_code a
let sexp_of_t = unreachable_code
let t_of_sexp sexp = Sexplib0.Sexp_conv_error.empty_type "Base.Nothing.t" sexp
let (t_sexp_grammar : t Sexplib0.Sexp_grammar.t) = { untyped = Union [] }
let to_string = unreachable_code
let of_string (_ : string) = failwith "Base.Nothing.of_string: not supported"
end
include T
include Identifiable.Make (struct
include T
let module_name = "Base.Nothing"
end)