Sourceval mk_log : string -> (?force:bool -> (unit -> string) -> unit) Types.log Sourceval logs : unit -> string list Sourceval worker_initialization_begins : unit -> unit Sourceval worker_initialization_done : fwd_event:(event -> unit) -> unit Sourceval feedback_add_feeder_on_Message :
(Feedback.route_id ->
Stateid.t ->
Feedback.doc_id ->
Feedback.level ->
Loc.t option ->
'a list ->
Pp.t ->
unit) ->
int