Source file dns_resolver_mirage_shared.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)

type query_info = {
  fin : Ptime.t;
  question : Dns.Packet.Question.t;
  src : Ipaddr.t;
  rcode : Dns.Rcode.t;
  time_taken : int64;
  status : string
}

module type S = sig
  type t

  val resolve_external : t -> Ipaddr.t * int -> string -> (int32 * string) Lwt.t
  val primary_data : t -> Dns_trie.t
  val update_primary_data : t -> Dns_trie.t -> unit
  val update_tls : t -> Tls.Config.server -> unit
  val queries : t -> query_info Lwt_condition.t
end