Up
Module
Server_read_result
Signature
type
t =
| Connect
of
Client_id.t
| Disconnect
of
Client_id.t
*
Async_extra.Import.Sexp.t
| Denied_access
of
string
| Data
of
Client_id.t
*
Client_message.t
include
Core.Std.Sexpable
with
type
t
:=
t
type
t
val
t_of_sexp :
Sexplib.Sexp.t
->
t
val
sexp_of_t :
t
->
Sexplib.Sexp.t