type ('a, 'b) t = ('a, 'b) Async.Tcp.Server.tval create :
(?on_kerberos_error:
[ `Call of Async.Socket.Address.Inet.t -> exn -> unit | `Ignore | `Raise ] ->
?on_handshake_error:
[ `Call of
Handshake_error.Kind.t ->
Async.Socket.Address.Inet.t ->
exn ->
unit
| `Ignore
| `Raise ] ->
?on_handler_error:
[ `Call of Async.Socket.Address.Inet.t -> exn -> unit
| `Ignore
| `Raise ] ->
?override_supported_versions:int list ->
authorize:Authorize.t ->
krb_mode:Mode.Server.t ->
Async.Tcp.Where_to_listen.inet ->
(Client_principal.t ->
Async.Socket.Address.Inet.t ->
Async.Reader.t ->
Async.Writer.t ->
unit Async.Deferred.t) ->
(Async.Socket.Address.Inet.t, int) t Async.Deferred.Or_error.t)
async_tcp_server_argsCreate a TCP server. Unlike an un-kerberized TCP server, this will read and write some bytes from/to the underlying socket before returning a t.