1. camlspotter
  2. ocaml-bitbucket

Source

ocaml-bitbucket / xcurl.ml

Diff from to

File xcurl.ml

  • Ignore whitespace
   h#perform;
   h#get_httpcode, Buffer.contents buf
 
+let ok200 = function
+  | 200, v -> `Ok v
+  | n, mes -> `Error (`Http (n, mes))