Client.Transport
type context = Dns_client_mirage.Make(R)(T)(C)(P)(S)(H).Transport.context
type 'a io = 'a Lwt.t
type io_addr = [
| `Plaintext of Ipaddr.t * int
| `Tls of Tls.Config.client * Ipaddr.t * int
]
type stack = S.t * H.t
type t = Dns_client_mirage.Make(R)(T)(C)(P)(S)(H).Transport.t
val create : ?nameservers:(Dns.proto * io_addr list) -> timeout:int64 -> stack -> t
val nameservers : t -> Dns.proto * io_addr list
val rng : int -> string
val clock : unit -> int64
val connect : t -> (Dns.proto * context, [> `Msg of string ]) Stdlib.result io
val send_recv : context -> string -> (string, [> `Msg of string ]) Stdlib.result io
val close : context -> unit io
val bind : 'a io -> ('a -> 'b io) -> 'b io
val lift : 'a -> 'a io
val happy_eyeballs : t -> happy_eyeballs