35 lines
995 B
OCaml
35 lines
995 B
OCaml
|
module type S = sig
|
||
|
|
val connect : Mimic.ctx -> Mimic.ctx Lwt.t
|
||
|
|
val alpn_protocol : Mimic.flow -> string option
|
||
|
|
val authenticator : (X509.Authenticator.t, [> `Msg of string ]) result
|
||
|
|
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 one_request :
|
||
|
|
?config:[ `H2 of H2.Config.t | `HTTP_1_1 of Httpaf.Config.t ] ->
|
||
|
|
?tls_config:Tls.Config.client ->
|
||
|
|
ctx:Mimic.ctx ->
|
||
|
|
alpn_protocol:(Mimic.flow -> string option) ->
|
||
|
|
authenticator:(X509.Authenticator.t, [> `Msg of string ]) result ->
|
||
|
|
?meth:Httpaf.Method.t ->
|
||
|
|
?headers:(string * string) list ->
|
||
|
|
?body:string ->
|
||
|
|
?max_redirect:int ->
|
||
|
|
?follow_redirect:bool ->
|
||
|
|
string ->
|
||
|
|
(response * string option, [> Mimic.error ]) result Lwt.t
|