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