DNS (u.67cb911da891fc5ed3fcd162e71fee8e.git-mirage.3.8.0.doc.git-mirage.happy-eyeballs.Git_mirage_happy

type t

val create : 
  ?size:int ->
  ?edns:[ `Auto | `Manual of Dns.Edns.t | `None ] ->
  ?nameservers:
    (Dns.proto
     * [ `Plaintext of Ipaddr.t * int
       | `Tls of Tls.Config.client * Ipaddr.t * int ]
         list) ->
  ?timeout:int64 ->
  Stack.t ->
  t

val nameservers : 
  t ->
  Dns.proto
  * [ `Plaintext of Ipaddr.t * int
    | `Tls of Tls.Config.client * Ipaddr.t * int ]
      list

val getaddrinfo : 
  t ->
  'r Dns.Rr_map.key ->
  'a Domain_name.t ->
  ('r, [> `Msg of string ]) result Lwt.t

val gethostbyname : 
  t ->
  [ `host ] Domain_name.t ->
  (Ipaddr.V4.t, [> `Msg of string ]) result Lwt.t

val gethostbyname6 : 
  t ->
  [ `host ] Domain_name.t ->
  (Ipaddr.V6.t, [> `Msg of string ]) result Lwt.t

val get_resource_record : 
  t ->
  'r Dns.Rr_map.key ->
  'a Domain_name.t ->
  ('r,
    [> `Msg of string
    | `No_data of [ `raw ] Domain_name.t * Dns.Soa.t
    | `No_domain of [ `raw ] Domain_name.t * Dns.Soa.t ])
    result
    Lwt.t