simon/ezcurl
1
0
Fork 0
mirror of https://github.com/c-cube/ezcurl.git synced 2025-12-06 11:15:44 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

chore: try to appease mdx

Browse source
This commit is contained in:
Simon Cruanes 2020-03-03 09:56:15 -06:00
parent 99b21c29cc
commit 0733fc8b1e
1 changed files with 1 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
README.md
View file

@ -31,15 +31,9 @@ object that contains the body, headers, and error code.
# let url = "https://curl.haxx.se/";; # let url = "https://curl.haxx.se/";;
val url : string = "https://curl.haxx.se/" val url : string = "https://curl.haxx.se/"
# let res = Ezcurl.get ~url ();; # let res = Ezcurl.get ~url ();;
val res : (Ezcurl_core.response, Curl.curlCode * string) result =
Ok
{Ezcurl_core.code = 200;
headers =
... ...
# let content = match res with Ok c -> c | Error (_,s) -> failwith s;; # let content = match res with Ok c -> c | Error (_,s) -> failwith s;;
val content : Ezcurl_core.response = val content : Ezcurl_core.response =
{Ezcurl_core.code = 200;
headers =
... ...
# content.Ezcurl.code;; # content.Ezcurl.code;;
@ -75,8 +69,7 @@ val urls : string list =
| Ok r -> Lwt.return r.Ezcurl_lwt.code | Ok r -> Lwt.return r.Ezcurl_lwt.code
| Error e -> Lwt.fail (Failure "oh no")) | Error e -> Lwt.fail (Failure "oh no"))
;; ;;
val codes : int list Ezcurl_lwt.io = <abstr> ...
# codes;; # codes;;
- : int list = [200; 200; 200] - : int list = [200; 200; 200]
``` ```