wtf.re

/* example from cohttp readme, works with rebuild -pkg cohttp.lwt wtf.native */

open Lwt;
open Cohttp;
open Cohttp_lwt_unix;

let coroutine =
  Client.get (Uri.of_string "http://www.reddit.com/") >>= fun (resp, body) => {
    let code = resp |> Response.status |> Code.code_of_status;
    Printf.printf "Response code: %d\n" code;
    Printf.printf "Headers: %s\n" (resp |> Response.headers |> Header.to_string);
    body |> Cohttp_lwt_body.to_string >|= fun body => {
      Printf.printf "Body of length: %d\n" (String.length body);
      body
    }
  };

let x = Lwt_main.run coroutine;
print_endline ("Received body\n" ^ x);