Json (odoc.odoc.odoc_utils.Odoc

type json = [

| `Null
| `Bool of bool
| `Float of float
| `String of string
| `Array of json list
| `Object of (string * json) list

]

val buffer_add_json : 
  Buffer.t ->
  ([< `Array of 'a list
   | `Bool of bool
   | `Float of float
   | `Null
   | `Object of (String.t * 'a) list
   | `String of String.t ] as 'a) ->
  unit

val buffer_add_json_string : Buffer.t -> String.t -> unit

val to_string : 
  ([< `Array of 'a list
   | `Bool of bool
   | `Float of float
   | `Null
   | `Object of (String.t * 'a) list
   | `String of String.t ] as 'a) ->
  string