Source

ocaml-bitbucket / xcurl.ml

Diff from to
   let buf = Buffer.create 100 in
   h#set_writefunction (fun s -> Buffer.add_string buf s; String.length s);
   h#perform;
-  Buffer.contents buf
+  h#get_httpcode, Buffer.contents buf