Source file `json.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

type t =
  [ `Assoc of (string * t) list
  | `Bool of bool
  | `Float of float
  | `Int of int
  | `Intlit of string
  | `List of t list
  | `Null
  | `String of string
  | `Tuple of t list
  | `Variant of string * t option ]

let constr0 s = `Variant (s, None)

let constr1 s a = `Variant (s, Some a)