diff options
author | 2016-09-05 16:24:37 +0200 | |
---|---|---|
committer | 2016-09-05 16:37:00 +0200 | |
commit | b253e31a22024a5bb73b6fa707e6582b4034621b (patch) | |
tree | 6064122d2531d77ab981321c69df8ec7cc6db947 /lib | |
parent | 6f393734e54146c4d26325aea006368380d97280 (diff) |
feedback: support multiple feedback listeners
So that a module can add his own and look at the traffic
Diffstat (limited to 'lib')
-rw-r--r-- | lib/feedback.ml | 9 | ||||
-rw-r--r-- | lib/feedback.mli | 4 |
2 files changed, 7 insertions, 6 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index 0ec3b2ebe..4bda936f2 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -125,8 +125,8 @@ let msg_error ?loc x = !logger ?loc Error x let msg_debug ?loc x = !logger ?loc Debug x (** Feeders *) -let feeder = ref ignore -let set_feeder f = feeder := f +let feeders = ref [] +let add_feeder f = feeders := f :: !feeders let feedback_id = ref (Edit 0) let feedback_route = ref default_route @@ -135,11 +135,12 @@ let set_id_for_feedback ?(route=default_route) i = feedback_id := i; feedback_route := route let feedback ?id ?route what = - !feeder { + let m = { contents = what; route = Option.default !feedback_route route; id = Option.default !feedback_id id; - } + } in + List.iter (fun f -> f m) !feeders let feedback_logger ?loc lvl msg = feedback ~route:!feedback_route ~id:!feedback_id diff --git a/lib/feedback.mli b/lib/feedback.mli index d72524e65..d19517bb9 100644 --- a/lib/feedback.mli +++ b/lib/feedback.mli @@ -83,8 +83,8 @@ val feedback_logger : logger val emacs_logger : logger -(** [set_feeder] A feeder processes the feedback, [ignore] by default *) -val set_feeder : (feedback -> unit) -> unit +(** [add_feeder] feeders observe the feedback *) +val add_feeder : (feedback -> unit) -> unit (** [feedback ?id ?route fb] produces feedback fb, with [route] and [id] set appropiatedly, if absent, it will use the defaults set by |