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