Source

ocaml-bitbucket / xjson.ml

Diff from to

File xjson.ml

 
   let from_Ok = function
     | `Ok v -> v
-    | `Error e -> Pervasives.failwith (Format.sprintf "%a" format e)
+    | `Error e -> Format.ksprintf failwith "%a" format e
 end
 
 let curl_get_and_parse (convf : 'a Json_conv.decoder) curlf =