Module Sch_json_classify

type t = [
  1. | `Null
  2. | `String of string
  3. | `Float of float
  4. | `Int of int
  5. | `Bool of bool
  6. | `List of t list
  7. | `Assoc of (string * t) list
]
val classify : Js.Json.t -> [> `Assoc of (Js.Dict.key * 'a) list | `Bool of bool | `Float of float | `Int of int | `List of 'a list | `Null | `String of string ] as 'a
val declassify : ([< `Assoc of (Js.Dict.key * 'a) list | `Bool of bool | `Float of float | `Int of Js.Int.t | `List of 'a list | `Null | `String of string ] as 'a) -> Js.Json.t