sig
type t =
Connect of Client_id.t
| Disconnect of Client_id.t * Core.Std.Sexp.t
| Denied_access of string
| Data of Client_id.t * Typed_tcp_intf.S.Client_message.t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end