Dns (capnp-rpc-mirage.Capnp_rpc_mirage.Make.Network.Dns)

module Transport : sig ... end

type t = Dns_client.Make(Transport).t

val create : 
  ?cache_size:int ->
  ?edns:[ `Auto | `Manual of Dns.Edns.t | `None ] ->
  ?nameservers:(Dns.proto * Transport.io_addr list) ->
  ?timeout:int64 ->
  Transport.stack ->
  t

val nameservers : t -> Dns.proto * Transport.io_addr list

val getaddrinfo : 
  t ->
  'response Dns.Rr_map.key ->
  'a Domain_name.t ->
  ('response, [> `Msg of string ]) Stdlib.result Transport.io

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

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

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

val get_raw_reply : 
  t ->
  'response Dns.Rr_map.key ->
  'a Domain_name.t ->
  (Dns.Packet.reply, [> `Msg of string | `Partial ]) Stdlib.result Transport.io

val nameserver_of_string : 
  string ->
  (Dns.proto * Transport.io_addr, [> `Msg of string ]) Stdlib.result

val connect : 
  ?cache_size:int ->
  ?edns:[ `Auto | `Manual of Dns.Edns.t | `None ] ->
  ?nameservers:string list ->
  ?timeout:int64 ->
  Transport.stack ->
  t Lwt.t