module Direct: sig
.. end
val iter : Raw_monitor.t ->
name:(([< `Read | `Set_and_create ], Raw_monitor.t, Core.Std.Info.t)
Fieldslib.Field.t_with_perm -> Raw_monitor.t -> Core.Std.Info.t -> 'a) ->
here:(([< `Read | `Set_and_create ], Raw_monitor.t,
Core.Std.Source_code_position.t option)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> Core.Std.Source_code_position.t option -> 'b) ->
id:(([< `Read | `Set_and_create ], Raw_monitor.t, int)
Fieldslib.Field.t_with_perm -> Raw_monitor.t -> int -> 'c) ->
parent:(([< `Read | `Set_and_create ], Raw_monitor.t, Raw_monitor.t option)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> Raw_monitor.t option -> 'd) ->
handlers_for_next_error:(([< `Read | `Set_and_create ], Raw_monitor.t,
(exn -> unit) list)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> (exn -> unit) list -> 'e) ->
handlers_for_all_errors:(([< `Read | `Set_and_create ], Raw_monitor.t,
(exn -> unit) list)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> (exn -> unit) list -> 'f) ->
has_seen_error:(([< `Read | `Set_and_create ], Raw_monitor.t, bool)
Fieldslib.Field.t_with_perm -> Raw_monitor.t -> bool -> 'g) ->
someone_is_listening:(([< `Read | `Set_and_create ], Raw_monitor.t, bool)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> bool -> 'h) ->
kill_index:(([< `Read | `Set_and_create ], Raw_monitor.t, Kill_index.t)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> Kill_index.t -> 'i) ->
'i
val fold : Raw_monitor.t ->
init:'a ->
name:('a ->
([< `Read | `Set_and_create ], Raw_monitor.t, Core.Std.Info.t)
Fieldslib.Field.t_with_perm -> Raw_monitor.t -> Core.Std.Info.t -> 'b) ->
here:('b ->
([< `Read | `Set_and_create ], Raw_monitor.t,
Core.Std.Source_code_position.t option)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> Core.Std.Source_code_position.t option -> 'c) ->
id:('c ->
([< `Read | `Set_and_create ], Raw_monitor.t, int)
Fieldslib.Field.t_with_perm -> Raw_monitor.t -> int -> 'd) ->
parent:('d ->
([< `Read | `Set_and_create ], Raw_monitor.t, Raw_monitor.t option)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> Raw_monitor.t option -> 'e) ->
handlers_for_next_error:('e ->
([< `Read | `Set_and_create ], Raw_monitor.t,
(exn -> unit) list)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> (exn -> unit) list -> 'f) ->
handlers_for_all_errors:('f ->
([< `Read | `Set_and_create ], Raw_monitor.t,
(exn -> unit) list)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> (exn -> unit) list -> 'g) ->
has_seen_error:('g ->
([< `Read | `Set_and_create ], Raw_monitor.t, bool)
Fieldslib.Field.t_with_perm -> Raw_monitor.t -> bool -> 'h) ->
someone_is_listening:('h ->
([< `Read | `Set_and_create ], Raw_monitor.t, bool)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> bool -> 'i) ->
kill_index:('i ->
([< `Read | `Set_and_create ], Raw_monitor.t, Kill_index.t)
Fieldslib.Field.t_with_perm ->
Raw_monitor.t -> Kill_index.t -> 'j) ->
'j