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