diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2016-12-06 11:03:12 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-21 15:51:38 +0100 |
commit | e872f76058e954fac3e0652ec567aff72226e9dd (patch) | |
tree | 43f552133d87b00ca4078599668185418490df3b | |
parent | a010de9bcaa33fc95a2a7cb6478ac21c95e3ad9e (diff) |
[pp] Debug feeder is not needed anymore.
-> Candidate to be merge with the main feedback commit.
-rw-r--r-- | lib/feedback.ml | 4 | ||||
-rw-r--r-- | lib/feedback.mli | 3 |
2 files changed, 0 insertions, 7 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index 31677ecfc..7d9d6bf7f 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -79,7 +79,3 @@ let msg_notice ?loc x = feedback_logger ?loc Notice x let msg_warning ?loc x = feedback_logger ?loc Warning x let msg_error ?loc x = feedback_logger ?loc Error x let msg_debug ?loc x = feedback_logger ?loc Debug x - -let debug_feeder = function - | { contents = Message (Debug, loc, pp) } -> msg_debug ?loc pp - | _ -> () diff --git a/lib/feedback.mli b/lib/feedback.mli index 3fb7c0039..4bbdfcb5b 100644 --- a/lib/feedback.mli +++ b/lib/feedback.mli @@ -64,9 +64,6 @@ val add_feeder : (feedback -> unit) -> int (** [del_feeder fid] removes the feeder with id [fid] *) val del_feeder : int -> unit -(** Prints feedback messages of kind Message(Debug,_) using msg_debug *) -val debug_feeder : feedback -> unit - (** [feedback ?id ?route fb] produces feedback fb, with [route] and [id] set appropiatedly, if absent, it will use the defaults set by [set_id_for_feedback] *) |