sig
  type 'a t = Watching of 'a | Stop_requested
  val sexp_of_t :
    ('a -> Sexplib.Sexp.t) -> 'a File_descr_watcher.State.t -> Sexplib.Sexp.t
end