Module `Http.Client`

type response = { status: Httpaf.Status.t, body: string, headers: list((string, string)), };

let error_handler: 'a => 'b;
let read_response: notify_finished:Lwt.u(Stdlib.result(response, [> `Msg(string) ])) => Httpaf.Response.t => Httpaf.Body.t([ `read ]) => unit;
let fetch: ?⁠meth:Httpaf.Method.t => ?⁠body:string => ?⁠headers:list((Httpaf.Headers.name, Httpaf.Headers.value)) => string => Lwt.t(Stdlib.result(response, [> `Msg(string) ]));
let get: ?⁠port:CCInt.t => host:Httpaf.Headers.value => path:string => ?⁠headers:list((Httpaf.Headers.name, Httpaf.Headers.value)) => unit => Lwt.t(Stdlib.result(response, [> `Msg(string) ]));