type json_type =
  Json_type.json_type =
    Object of (string * json_type) list
  | Array of json_type list
  | String of string
  | Int of int
  | Float of float
  | Bool of bool
  | Null
type t = json_type
exception Json_error of string
module Browse :
  sig
    val make_table : (string * t) list -> (string, t) Hashtbl.t
    val field : (string, t) Hashtbl.t -> string -> t
    val fieldx : (string, t) Hashtbl.t -> string -> t
    val optfield : (string, t) Hashtbl.t -> string -> t option
    val optfieldx : (string, t) Hashtbl.t -> string -> t option
    val describe : t -> string
    val type_mismatch : string -> t -> 'a
    val is_null : t -> bool
    val is_defined : t -> bool
    val null : t -> unit
    val string : t -> string
    val bool : t -> bool
    val number : t -> float
    val int : t -> int
    val float : t -> float
    val array : t -> t list
    val objekt : t -> (string * t) list
    val list : (t -> 'a) -> t -> 'a list
    val option : t -> t option
    val optional : (t -> 'a) -> t -> 'a option
    val assert_object_or_array : t -> unit
  end
module Build :
  sig
    val null : t
    val bool : bool -> t
    val int : int -> t
    val float : float -> t
    val string : string -> t
    val objekt : (string * t) list -> t
    val array : t list -> t
    val list : ('a -> t) -> 'a list -> t
    val option : t option -> t
    val optional : ('a -> t) -> 'a option -> t
  end
val string_of_loc : Lexing.position * Lexing.position -> string
val json_error : string -> 'a