diff options
| author | Emilio Jesus Gallego Arias | 2016-06-25 16:05:25 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2016-06-25 17:17:45 +0200 |
| commit | 893ea5219eb74aedf93bd53f23b5e050fb9acbf6 (patch) | |
| tree | b1ee17d5fdbc321c30573b6c70a9c7389cf44a33 /lib | |
| parent | c9f9a159818c138af3b8d8a3a1023a66b88be207 (diff) | |
[feedback] Allow messages to carry a location.
The new warnings mechanism may which to forward a location to
IDEs. This also makes sense for other message types.
Next step is to remove redundant MsgError feedback type.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/feedback.ml | 6 | ||||
| -rw-r--r-- | lib/feedback.mli | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index 12b8b27ff4..c2b512e991 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -36,8 +36,8 @@ type feedback_content = | FileLoaded of string * string (* Extra metadata *) | Custom of Loc.t * string * xml - (* Old generic messages *) - | Message of level * Richpp.richpp + (* Generic messages *) + | Message of level * Loc.t option * Richpp.richpp type feedback = { id : edit_or_state_id; @@ -142,7 +142,7 @@ let feedback ?id ?route what = let feedback_logger ?loc lvl msg = feedback ~route:!feedback_route ~id:!feedback_id - (Message (lvl, Richpp.richpp_of_pp msg)) + (Message (lvl, loc, Richpp.richpp_of_pp msg)) (* Output to file *) let ft_logger old_logger ft ?loc level mesg = diff --git a/lib/feedback.mli b/lib/feedback.mli index 7b293ae30b..36fb3867fb 100644 --- a/lib/feedback.mli +++ b/lib/feedback.mli @@ -46,7 +46,7 @@ type feedback_content = (* Extra metadata *) | Custom of Loc.t * string * xml (* Old generic messages *) - | Message of level * Richpp.richpp + | Message of level * Loc.t option * Richpp.richpp type feedback = { id : edit_or_state_id; (* The document part concerned *) |