type t = {
  1. stack : Stack.t;
  2. dns : Dns.t;
include Capnp_rpc_lwt.S.NETWORK with type t := t and type Address.t = [ `TCP of string * int ] * Capnp_rpc_lwt.Auth.Digest.t
module Address : Capnp_rpc_lwt.S.ADDRESS with type t = [ `TCP of string * int ] * Capnp_rpc_lwt.Auth.Digest.t
val connect : t -> switch:Lwt_switch.t -> secret_key:Capnp_rpc_lwt.Auth.Secret_key.t Lazy.t -> Address.t -> (Capnp_rpc_lwt.Endpoint.t, [> `Msg of string ]) result Lwt.t

connect t ~switch ~secret_key address connects to address, proves ownership of secret_key (if TLS is being used), and returns the resulting endpoint. Returns an error if no connection can be established or the target fails to authenticate itself. If switch is turned off, the connection should be terminated.

val accept_connection : switch:Lwt_switch.t -> secret_key:Capnp_rpc_lwt.Auth.Secret_key.t option -> Stack.TCPV4.flow -> (Capnp_rpc_lwt.Endpoint.t, [> `Msg of string ]) result Lwt.t

accept_connection ~switch ~secret_key flow is a new endpoint for flow. If secret_key is not None, it is used to perform a TLS server-side handshake. Otherwise, the connection is not encrypted.