Up
Module
Typed_tcp
=
Async_extra.Typed_tcp
Signature
module type
Arg
=
Async_extra.Typed_tcp_intf.Arg
module type
Binable_t
=
Async_extra.Typed_tcp_intf.Binable_t
module type
S
=
Async_extra.Typed_tcp_intf.S
module
Make
(
Arg
:
Arg
) () :
S
with
module
Client_message
=
Arg.Client_message
and
module
Server_message
=
Arg.Server_message
module
Simple
(
Client_message
:
Binable_t
) (
Server_message
:
Binable_t
) () :
S
with
type
Client_message.t
=
Client_message.t
with
type
Server_message.t
=
Server_message.t