|
1 | 1 | (* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
|
2 | 2 |
|
3 |
| -type t |
4 |
| - |
5 |
| -val resolve_external : t -> Ipaddr.t * int -> string -> (int32 * string) Lwt.t |
6 |
| -(** [resolve_external t (ip, port) data] resolves for [(ip, port)] the query |
7 |
| - [data] and returns a pair of the minimum TTL and a response. *) |
8 |
| - |
9 |
| -val primary_data : t -> Dns_trie.t |
10 |
| -(** [primary_data t] is the DNS trie of the primary for the resolver [t]. *) |
11 |
| - |
12 |
| -val update_primary_data : t -> Dns_trie.t -> unit |
13 |
| -(** [update_primary_data t data] updates the primary for the resolver [t] |
14 |
| - with the DNS trie [data]. Any 'notify's to secondaries are discarded - |
15 |
| - secondary name servers are not supported in this setup. *) |
16 |
| - |
17 |
| -val update_tls : t -> Tls.Config.server -> unit |
18 |
| -(** [update_tls t tls_config] updates the tls configuration to [tls_config]. |
19 |
| - If the resolver wasn't already listening for TLS connections it will |
20 |
| - start listening. *) |
| 3 | +module type S = sig |
| 4 | + type t |
| 5 | + |
| 6 | + val resolve_external : t -> Ipaddr.t * int -> string -> (int32 * string) Lwt.t |
| 7 | + (** [resolve_external t (ip, port) data] resolves for [(ip, port)] the query |
| 8 | + [data] and returns a pair of the minimum TTL and a response. *) |
| 9 | + |
| 10 | + val primary_data : t -> Dns_trie.t |
| 11 | + (** [primary_data t] is the DNS trie of the primary for the resolver [t]. *) |
| 12 | + |
| 13 | + val update_primary_data : t -> Dns_trie.t -> unit |
| 14 | + (** [update_primary_data t data] updates the primary for the resolver [t] |
| 15 | + with the DNS trie [data]. Any 'notify's to secondaries are discarded - |
| 16 | + secondary name servers are not supported in this setup. *) |
| 17 | + |
| 18 | + val update_tls : t -> Tls.Config.server -> unit |
| 19 | + (** [update_tls t tls_config] updates the tls configuration to [tls_config]. |
| 20 | + If the resolver wasn't already listening for TLS connections it will |
| 21 | + start listening. *) |
| 22 | +end |
0 commit comments