Module Execution_context.Monitor

module Monitor: Raw_monitor

type 'execution_context t_ = {
   name :Core.Std.Info.t;
   here :Core.Std.Source_code_position.t option;
   id :int;
   parent :'execution_context t_ option;
   errors :(exn, 'execution_context) Raw_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) Raw_tail.t
val parent : 'a t_ -> 'a t_ option
val id : 'a t_ -> int
val here : 'a t_ -> Core.Std.Source_code_position.t option
val name : 'a t_ -> Core.Std.Info.t
module Fields: sig .. end
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