Up
Module
Make
(
Z
:
Arg
) :
S
with
module
To_server_msg
=
Z.To_server_msg
and
module
To_client_msg
=
Z.To_client_msg
and
module
Client_name
=
Z.Client_name
and
module
Server_name
=
Z.Server_name