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 /ide/ide_slave.ml | |
| 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 'ide/ide_slave.ml')
| -rw-r--r-- | ide/ide_slave.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index b1f4177579..86e09922c5 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -475,8 +475,8 @@ let print_xml = let slave_logger xml_oc ?loc level message = (* convert the message into XML *) let msg = hov 0 message in - let () = pr_debug (Printf.sprintf "-> %S" (string_of_ppcmds msg)) in - let xml = Xmlprotocol.of_message level (Richpp.richpp_of_pp message) in + let () = pr_debug (Printf.sprintf "-> %S" (string_of_ppcmds msg)) in + let xml = Xmlprotocol.of_message level loc (Richpp.richpp_of_pp message) in print_xml xml_oc xml let slave_feeder xml_oc msg = |