Source file `json_base.ml`

1
2
3
4
5
6
7
8
9
10
11
12
type parse_error = { pos : Pos.t; message : string }

exception Parse_error of parse_error

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