Up
module
Dnscurve_processor
:
sig
#
type
'a tunnel =
Sodium
.
secret
Sodium
.
Box
.
key
->
(
module
Dns.Protocol.SERVER)
->
'a
->
(
module
Dns_server
.
PROCESSOR
)
#
module type
DNSCURVEPROCESSOR =
sig
include
Dns_server
.
PROCESSOR
#
val
process :
Dnscurve
.
channel
->
context
Dns_server
.
process
end
#
val
of_process : (
Dnscurve
.
channel
->
Dns.Packet.t
Dns_server
.
process
)
->
(
module
DNSCURVEPROCESSOR
)
#
val
encurve : (
module
DNSCURVEPROCESSOR
)
tunnel
#
val
wrap : (
module
Dns_server
.
PROCESSOR
)
tunnel
#
val
fallback_curve : (
module
Dns_server
.
PROCESSOR
)
->
(
module
DNSCURVEPROCESSOR
)
tunnel
#
val
fallback_dns : (
module
Dns_server
.
PROCESSOR
)
->
(
module
Dns_server
.
PROCESSOR
)
tunnel
#
val
secure_of_process :
Sodium
.
secret
Sodium
.
Box
.
key
->
Dns.Packet.t
Dns_server
.
process
->
(
module
Dns_server
.
PROCESSOR
)
#
val
split_of_process :
Sodium
.
secret
Sodium
.
Box
.
key
->
Dns.Packet.t
Dns_server
.
process
->
Dns.Packet.t
Dns_server
.
process
->
(
module
Dns_server
.
PROCESSOR
)
#
val
fallback_of_process :
Sodium
.
secret
Sodium
.
Box
.
key
->
Dns.Packet.t
Dns_server
.
process
->
(
module
Dns_server
.
PROCESSOR
)
end