Source file `vif_client.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
type body = |
type response = unit

exception Client_error of Httpcats.error

type resolver =
  [ `Happy of Happy_eyeballs_miou_unix.t | `User of Httpcats.resolver | `System ]

let request ?config ?tls_config ?authenticator ?meth ?headers ?body:_
    ?max_redirect ?follow_redirect ?resolver t =
  let fn _meta _request _response a _chunk = a in
  let fn uri =
    let uri = "https://" ^ uri in
    (* TODO *)
    let res =
      Httpcats.request ?config ?tls_config ?authenticator ?meth ?headers
        ?max_redirect ?follow_redirect ?resolver ~fn ~uri ()
    in
    match res with
    | Ok (_response, ()) -> ()
    | Error (#Httpcats.error as err) -> raise (Client_error err)
  in
  Vif_uri.keval t fn