Source

ocaml-bitbucket / xjson.ml

Diff from to

File xjson.ml

 open Meta_conv.Result.Open
 open Tiny_json
 
-(* CR jfuruse: can be shared with other json apps *)
 let ocaml_of_t : Json.t Ocaml_conv.encoder = fun j -> Ocaml.String (Json.show j)
 let t_of_ocaml : Json.t Ocaml_conv.decoder = fun ?(trace=[]) o ->
   try match o with
 
 let parse s = try `Ok (Json.parse s) with e -> `Error (`Json_parse e)
 
-(* CR jfuruse: can be shared with other json apps *)
 module Error = struct
   open Format