diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-05 13:39:01 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-06 05:47:47 -0400 |
commit | 6de30e1985888a50b185ac72d4609fb41342bb8a (patch) | |
tree | b0fee7b45781bc62fe5102ef81a51cbcdfb45aa1 /ide/coq.ml | |
parent | 45ee3d6b2aae4491e26551f23461ecf8ad37bd87 (diff) |
xmlprotocol: Marshal_error carries the reason
Diffstat (limited to 'ide/coq.ml')
-rw-r--r-- | ide/coq.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index 82fd48c9e..61f002576 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -357,7 +357,9 @@ let unsafe_handle_input handle feedback_processor state conds ~read_all = let print_exception = function | Xml_parser.Error e -> Xml_parser.error e - | Serialize.Marshal_error -> "Protocol violation" + | Serialize.Marshal_error(expected,actual) -> + "Protocol violation. Expected: " ^ expected ^ " Actual: " + ^ Xml_printer.to_string actual | e -> Printexc.to_string e let input_watch handle respawner feedback_processor = |