diff options
| author | Emilio Jesus Gallego Arias | 2016-06-24 18:51:32 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2016-06-25 17:17:44 +0200 |
| commit | 9bff82239c2a6412a26ae3c5faab42a9c9d2ccb1 (patch) | |
| tree | b66cdd04db8d6f8ab35fa9eac96f3b58df9d6ce3 /ide/xmlprotocol.ml | |
| parent | 799b4028834c1b073db8349bf75e384750fed591 (diff) | |
[feedback] Remove unused tag on `Debug` level.
IMO level indicators are not the proper place to store this information.
Diffstat (limited to 'ide/xmlprotocol.ml')
| -rw-r--r-- | ide/xmlprotocol.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ide/xmlprotocol.ml b/ide/xmlprotocol.ml index a55d19aa1b..65c85ed153 100644 --- a/ide/xmlprotocol.ml +++ b/ide/xmlprotocol.ml @@ -769,15 +769,15 @@ let document to_string_fmt = open Feedback let of_message_level = function - | Debug s -> - Serialize.constructor "message_level" "debug" [Xml_datatype.PCData s] + | Debug -> + Serialize.constructor "message_level" "debug" [] | Info -> Serialize.constructor "message_level" "info" [] | Notice -> Serialize.constructor "message_level" "notice" [] | Warning -> Serialize.constructor "message_level" "warning" [] | Error -> Serialize.constructor "message_level" "error" [] let to_message_level = Serialize.do_match "message_level" (fun s args -> match s with - | "debug" -> Debug (Serialize.raw_string args) + | "debug" -> Debug | "info" -> Info | "notice" -> Notice | "warning" -> Warning |