sig
  type one = {
    name_opt : string option;
    id : int;
    has_seen_error : bool;
    someone_is_listening : bool;
  }
  val sexp_of_one : Raw_monitor.Pretty.one -> Sexplib.Sexp.t
  type t = Raw_monitor.Pretty.one list
  val sexp_of_t : Raw_monitor.Pretty.t -> Sexplib.Sexp.t
end