Up

Module Monitor0

Signature

val debug : bool
type t = Types.Monitor.t = {
name
: Core_kernel.Std.Info.t ;
here
: Core_kernel.Std.Source_code_position.t option ;
id
: int ;
parent
: t option ;
mutable next_error
: exn Types.Ivar.t ;
mutable handlers_for_all_errors
: (Types.Execution_context.t * (exn -> unit)) Core_kernel.Std.Bag.t ;
mutable tails_for_all_errors
: exn 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 Types.Tail.t list
val set_tails_for_all_errors : t -> exn Types.Tail.t list -> unit
val handlers_for_all_errors : t -> (Types.Execution_context.t * (exn -> unit)) Core_kernel.Std.Bag.t
val set_handlers_for_all_errors : t -> (Types.Execution_context.t * (exn -> unit)) Core_kernel.Std.Bag.t -> unit
val next_error : t -> exn Types.Ivar.t
val set_next_error : t -> exn Types.Ivar.t -> unit
val parent : t -> t option
val id : t -> int
val name : t -> Core_kernel.Std.Info.t
module Fields : sig .. end
module Pretty : sig .. end
val to_pretty : t -> Pretty.one Core_kernel.Std.List.t
val sexp_of_t : t -> Sexplib.Sexp.t
val next_id : unit -> int
val create_with_parent : ?here:Core_kernel.Std.Source_code_position.t -> ?info:Core_kernel.Std.Info.t -> ?name:string -> t option -> t
val main : t
exception Shutdown
val try_with_log_exn : (exn -> unit) Core_kernel.Std.ref