Module Ag_json

type json_float = [
  1. | `Float of int option
  2. | `Int
]
type json_list = [
  1. | `Array
  2. | `Object
]
type json_variant = {
  1. json_cons : string option;
}
type json_field = {
  1. json_fname : string;
  2. json_tag_field : string option;
  3. json_unwrapped : bool;
}
type json_record = {
  1. json_keep_nulls : bool;
}
type json_repr = [
  1. | `Bool
  2. | `Cell
  3. | `Def
  4. | `External
  5. | `Field of json_field
  6. | `Float of json_float
  7. | `Int
  8. | `List of json_list
  9. | `Nullable
  10. | `Option
  11. | `Record of json_record
  12. | `String
  13. | `Sum
  14. | `Tuple
  15. | `Unit
  16. | `Variant of json_variant
  17. | `Wrap
]
val get_json_list : Atd_annot.t -> json_list
val get_json_float : Atd_annot.t -> json_float
val get_json_cons : string -> Atd_annot.t -> string
val get_json_fname : string -> Atd_annot.t -> string
val get_json_tag_field : Atd_annot.t -> string option
val get_json_untyped : Atd_annot.t -> bool
val get_json_record : Atd_annot.t -> json_record