Module Execution_context.Monitor

module Monitor: Raw_monitor

module Tail: Raw_tail
type 'execution_context t = {
   name_opt :string option;
   id :int;
   parent :'execution_context t option;
   errors :(exn, 'execution_context) Tail.t;
   mutable has_seen_error :bool;
   mutable someone_is_listening :bool;
}
val someone_is_listening : 'a t -> bool
val set_someone_is_listening : 'a t -> bool -> unit
val has_seen_error : 'a t -> bool
val set_has_seen_error : 'a t -> bool -> unit
val errors : 'a t -> (exn, 'a) Tail.t
val parent : 'a t -> 'a t option
val id : 'a t -> int
val name_opt : 'a t -> string option
module Fields: sig .. end
val bogus : unit -> 'a t
module Pretty: sig .. end
val to_pretty : 'a t -> Pretty.one Core.Std.List.t
val sexp_of_t : 'a -> 'b t -> Sexplib.Sexp.t
exception Shutdown