Source

ocaml-bitbucket / xjson.ml

Diff from to
     | `Http (n, _err) -> fprintf ppf "HTTP Error %d@." n
     | `Json_parse exn -> fprintf ppf "Error at Json parse: %s@." (Printexc.to_string exn)
     | `Other exn      -> fprintf ppf "Error: %s@." (Printexc.to_string exn)
-    | `Json_conv e -> Json_conv.format_full_error Json.format Format.stderr e 
+    | `Json_conv e -> Json_conv.format_full_error Format.stderr e 
 
   let from_Ok = function
     | `Ok v -> v