Module Raw_monitor

module Raw_monitor: sig .. end

val __pa_ounit_275876e34cf609db118f3d84b799a790 : string
val debug : bool
type t = {
   name :Core.Std.Info.t;
   here :Core.Std.Source_code_position.t option;
   id :int;
   parent :t option;
   mutable error_handlers :(exn -> unit) list;
   mutable has_seen_error :bool;
   mutable someone_is_listening :bool;
   mutable kill_index :Kill_index.t;
}
val kill_index : t -> Kill_index.t
val set_kill_index : t -> Kill_index.t -> unit
val someone_is_listening : t -> bool
val set_someone_is_listening : t -> bool -> unit
val has_seen_error : t -> bool
val set_has_seen_error : t -> bool -> unit
val error_handlers : t -> (exn -> unit) list
val set_error_handlers : t -> (exn -> unit) list -> unit
val parent : t -> t option
val id : t -> int
val here : t -> Core.Std.Source_code_position.t option
val name : t -> Core.Std.Info.t
module Fields: sig .. end
module Pretty: sig .. end
val to_pretty : t -> Pretty.one Core.Std.List.t
val sexp_of_t : t -> Sexplib.Sexp.t
val next_id : unit -> int
val create_with_parent : ?here:Core.Std.Source_code_position.t ->
?info:Core.Std.Info.t ->
?name:string -> t option -> t
val main : t
exception Shutdown
val update_kill_index : t -> global_kill_index:Kill_index.t -> unit