diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-09-13 09:35:05 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-09-13 12:58:07 +0200 |
commit | a5fb20b4ad4a56e15455ca329fbc4d03ac5fe072 (patch) | |
tree | 3ae3a5d90a6bee3189e21b23c53954b1d2599314 /lib/feedback.ml | |
parent | 6234ecf5f5752768175d510749cc48a97c2c0dbe (diff) |
feedback: provide a feeder that prints debug messages
Diffstat (limited to 'lib/feedback.ml')
-rw-r--r-- | lib/feedback.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index 4bda936f2..dd1ca2af3 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -128,6 +128,11 @@ let msg_debug ?loc x = !logger ?loc Debug x let feeders = ref [] let add_feeder f = feeders := f :: !feeders +let debug_feeder = function + | { contents = Message (Debug, loc, pp) } -> + msg_debug ?loc (Pp.str (Richpp.raw_print pp)) + | _ -> () + let feedback_id = ref (Edit 0) let feedback_route = ref default_route |