Module Async_kernel__.Monitor0
type t
= Async_kernel__.Types.Monitor.t
=
{
name : Core_kernel.Info.t;
here : Core_kernel.Source_code_position.t option;
id : int;
parent : t option;
mutable next_error : exn Async_kernel__.Types.Ivar.t;
mutable handlers_for_all_errors : (Async_kernel__.Types.Execution_context.t * (exn -> unit)) Core_kernel.Bag.t;
mutable tails_for_all_errors : exn Async_kernel__.Types.Tail.t list;
mutable has_seen_error : bool;
mutable is_detached : bool;
}
val is_detached : t -> bool
val set_is_detached : t -> bool -> unit
val has_seen_error : t -> bool
val set_has_seen_error : t -> bool -> unit
val tails_for_all_errors : t -> exn Async_kernel__.Types.Tail.t list
val set_tails_for_all_errors : t -> exn Async_kernel__.Types.Tail.t list -> unit
val handlers_for_all_errors : t -> (Async_kernel__.Types.Execution_context.t * (exn -> unit)) Core_kernel.Bag.t
val set_handlers_for_all_errors : t -> (Async_kernel__.Types.Execution_context.t * (exn -> unit)) Core_kernel.Bag.t -> unit
val next_error : t -> exn Async_kernel__.Types.Ivar.t
val set_next_error : t -> exn Async_kernel__.Types.Ivar.t -> unit
val parent : t -> t option
val id : t -> int
val here : t -> Core_kernel.Source_code_position.t option
val name : t -> Core_kernel.Info.t
module Fields : sig ... end
module Pretty : sig ... end
val to_pretty : t -> Pretty.one list
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val next_id : unit -> int
val create_with_parent : ?here:Core_kernel.Source_code_position.t -> ?info:Core_kernel.Info.t -> ?name:string -> t option -> t
val main : t