Module Raw_monitor.Fields

module Fields: sig .. end

val names : string list
val someone_is_listening : ('a Raw_monitor.t, bool) Fieldslib.Field.t
val has_seen_error : ('a Raw_monitor.t, bool) Fieldslib.Field.t
val errors : ('execution_context Raw_monitor.t,
(exn, 'execution_context) Raw_monitor.Tail.t)
Fieldslib.Field.t
val parent : ('execution_context Raw_monitor.t, 'execution_context Raw_monitor.t option)
Fieldslib.Field.t
val id : ('a Raw_monitor.t, int) Fieldslib.Field.t
val name_opt : ('a Raw_monitor.t, string option) Fieldslib.Field.t
val make_creator : name_opt:(('a Raw_monitor.t, string option) Fieldslib.Field.t ->
'b -> ('c -> string option) * 'd) ->
id:(('e Raw_monitor.t, int) Fieldslib.Field.t -> 'd -> ('c -> int) * 'f) ->
parent:(('g Raw_monitor.t, 'g Raw_monitor.t option) Fieldslib.Field.t ->
'f -> ('c -> 'h Raw_monitor.t option) * 'i) ->
errors:(('j Raw_monitor.t, (exn, 'j) Raw_monitor.Tail.t) Fieldslib.Field.t ->
'i -> ('c -> (exn, 'h) Raw_monitor.Tail.t) * 'k) ->
has_seen_error:(('l Raw_monitor.t, bool) Fieldslib.Field.t ->
'k -> ('c -> bool) * 'm) ->
someone_is_listening:(('n Raw_monitor.t, bool) Fieldslib.Field.t ->
'm -> ('c -> bool) * 'o) ->
'b -> ('c -> 'h Raw_monitor.t) * 'o
val create : name_opt:string option ->
id:int ->
parent:'a Raw_monitor.t option ->
errors:(exn, 'a) Raw_monitor.Tail.t ->
has_seen_error:bool -> someone_is_listening:bool -> 'a Raw_monitor.t
val iter : name_opt:(('a Raw_monitor.t, string option) Fieldslib.Field.t -> 'b) ->
id:(('c Raw_monitor.t, int) Fieldslib.Field.t -> 'd) ->
parent:(('e Raw_monitor.t, 'e Raw_monitor.t option) Fieldslib.Field.t -> 'f) ->
errors:(('g Raw_monitor.t, (exn, 'g) Raw_monitor.Tail.t) Fieldslib.Field.t ->
'h) ->
has_seen_error:(('i Raw_monitor.t, bool) Fieldslib.Field.t -> 'j) ->
someone_is_listening:(('k Raw_monitor.t, bool) Fieldslib.Field.t -> 'l) -> 'l
val fold : init:'a ->
name_opt:('a -> ('b Raw_monitor.t, string option) Fieldslib.Field.t -> 'c) ->
id:('c -> ('d Raw_monitor.t, int) Fieldslib.Field.t -> 'e) ->
parent:('e ->
('f Raw_monitor.t, 'f Raw_monitor.t option) Fieldslib.Field.t -> 'g) ->
errors:('g ->
('h Raw_monitor.t, (exn, 'h) Raw_monitor.Tail.t) Fieldslib.Field.t ->
'i) ->
has_seen_error:('i -> ('j Raw_monitor.t, bool) Fieldslib.Field.t -> 'k) ->
someone_is_listening:('k -> ('l Raw_monitor.t, bool) Fieldslib.Field.t -> 'm) ->
'm
val map : name_opt:(('a Raw_monitor.t, string option) Fieldslib.Field.t ->
string option) ->
id:(('b Raw_monitor.t, int) Fieldslib.Field.t -> int) ->
parent:(('c Raw_monitor.t, 'c Raw_monitor.t option) Fieldslib.Field.t ->
'd Raw_monitor.t option) ->
errors:(('e Raw_monitor.t, (exn, 'e) Raw_monitor.Tail.t) Fieldslib.Field.t ->
(exn, 'd) Raw_monitor.Tail.t) ->
has_seen_error:(('f Raw_monitor.t, bool) Fieldslib.Field.t -> bool) ->
someone_is_listening:(('g Raw_monitor.t, bool) Fieldslib.Field.t -> bool) ->
'd Raw_monitor.t
val map_poly : ('a Raw_monitor.t, 'b) Fieldslib.Field.user -> 'b list
val for_all : name_opt:(('a Raw_monitor.t, string option) Fieldslib.Field.t -> bool) ->
id:(('b Raw_monitor.t, int) Fieldslib.Field.t -> bool) ->
parent:(('c Raw_monitor.t, 'c Raw_monitor.t option) Fieldslib.Field.t -> bool) ->
errors:(('d Raw_monitor.t, (exn, 'd) Raw_monitor.Tail.t) Fieldslib.Field.t ->
bool) ->
has_seen_error:(('e Raw_monitor.t, bool) Fieldslib.Field.t -> bool) ->
someone_is_listening:(('f Raw_monitor.t, bool) Fieldslib.Field.t -> bool) ->
bool
val exists : name_opt:(('a Raw_monitor.t, string option) Fieldslib.Field.t -> bool) ->
id:(('b Raw_monitor.t, int) Fieldslib.Field.t -> bool) ->
parent:(('c Raw_monitor.t, 'c Raw_monitor.t option) Fieldslib.Field.t -> bool) ->
errors:(('d Raw_monitor.t, (exn, 'd) Raw_monitor.Tail.t) Fieldslib.Field.t ->
bool) ->
has_seen_error:(('e Raw_monitor.t, bool) Fieldslib.Field.t -> bool) ->
someone_is_listening:(('f Raw_monitor.t, bool) Fieldslib.Field.t -> bool) ->
bool
val to_list : name_opt:(('a Raw_monitor.t, string option) Fieldslib.Field.t -> 'b) ->
id:(('c Raw_monitor.t, int) Fieldslib.Field.t -> 'b) ->
parent:(('d Raw_monitor.t, 'd Raw_monitor.t option) Fieldslib.Field.t -> 'b) ->
errors:(('e Raw_monitor.t, (exn, 'e) Raw_monitor.Tail.t) Fieldslib.Field.t ->
'b) ->
has_seen_error:(('f Raw_monitor.t, bool) Fieldslib.Field.t -> 'b) ->
someone_is_listening:(('g Raw_monitor.t, bool) Fieldslib.Field.t -> 'b) ->
'b list
module Direct: sig .. end