module Raw_monitor: sig .. end
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