18 lines
340 B
OCaml
18 lines
340 B
OCaml
|
open Functoria.DSL
|
||
|
|
|
||
|
|
type 'a tcp
|
||
|
|
|
||
|
|
val tcp : 'a tcp typ
|
||
|
|
|
||
|
|
type tcpv4v6 = Ip.v4v6 tcp
|
||
|
|
|
||
|
|
val tcpv4v6 : tcpv4v6 typ
|
||
|
|
val direct_tcp : 'a Ip.ip impl -> 'a tcp impl
|
||
|
|
|
||
|
|
val tcpv4v6_socket_conf :
|
||
|
|
ipv4_only:bool runtime_arg ->
|
||
|
|
ipv6_only:bool runtime_arg ->
|
||
|
|
Ipaddr.V4.Prefix.t runtime_arg ->
|
||
|
|
Ipaddr.V6.Prefix.t option runtime_arg ->
|
||
|
|
tcpv4v6 impl
|