43 lines
1.2 KiB
OCaml
43 lines
1.2 KiB
OCaml
type t
|
|
|
|
module type S = sig
|
|
type nonrec t = t
|
|
|
|
val connect : Mimic.ctx -> t Lwt.t
|
|
end
|
|
|
|
module Make
|
|
(Pclock : Mirage_clock.PCLOCK)
|
|
(TCP : Tcpip.Tcp.S)
|
|
(Happy_eyeballs : Mimic_happy_eyeballs.S with type flow = TCP.flow) : S
|
|
|
|
module Version = Httpaf.Version
|
|
module Status = H2.Status
|
|
module Headers = H2.Headers
|
|
|
|
type response = {
|
|
version: Version.t
|
|
; status: Status.t
|
|
; reason: string
|
|
; headers: Headers.t
|
|
}
|
|
|
|
val request :
|
|
?config:[ `H2 of H2.Config.t | `HTTP_1_1 of Httpaf.Config.t ]
|
|
-> ?tls_config:Tls.Config.client
|
|
-> t
|
|
-> ?authenticator:X509.Authenticator.t
|
|
-> ?meth:Httpaf.Method.t
|
|
-> ?headers:(string * string) list
|
|
-> ?body:string
|
|
-> ?max_redirect:int
|
|
-> ?follow_redirect:bool
|
|
-> string
|
|
-> (response -> 'a -> string -> 'a Lwt.t)
|
|
-> 'a
|
|
-> (response * 'a, [> Mimic.error ]) result Lwt.t
|
|
(** [request ~config ~tls_config t ~authenticator ~meth ~headers ~body
|
|
~max_redirect ~follow_redirect url body_f body_init] does a HTTP request
|
|
to [url] using [meth] and the HTTP protocol in [config]. The response is
|
|
the value of this function. The body is provided in chunks (see [body_f]).
|
|
Reasonably defaults are used if not provided. *)
|