eio https request

eio-https-request.ml

(**
#require "tls-eio"
#require "cohttp-eio";;
#require "eio_main";;
#require "mirage-crypto-rng-eio";;
*)

open Eio
open Cohttp_eio

let tls_config =
  let null ?ip:_ ~host:_ _certs = Ok None in
  Tls.Config.client ~authenticator:null ()

let get ?headers ~net (host, resource) =
  Net.with_tcp_connect ~service:"https" ~host net @@ fun conn ->
  let conn =
    Tls_eio.client_of_flow tls_config
      ?host:
        (Domain_name.of_string_exn host |> Domain_name.host |> Result.to_option)
      conn
  in
  let resp =
    Client.get ?headers ~conn ~host:("https://" ^ host)
      (object
         method net = net
      end)
      resource
  in
  Client.read_fixed resp |> print_endline

let () =
  Eio_main.run @@ fun env ->
  Mirage_crypto_rng_eio.run (module Mirage_crypto_rng.Fortuna) env @@ fun () ->
  let net = Eio.Stdenv.net env in
  let headers = Http.Header.init_with "Host" "www.example.org" in
  get ~headers ~net ("www.example.org", "/")