diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-21 19:00:59 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-09-20 15:20:32 +0200 |
| commit | f20fce1259563f2081fadc62ccab1304bb8161d5 (patch) | |
| tree | b9c63468785f5dd9f123ad9f3321bf7ed31e0455 /ide/coq.ml | |
| parent | 85fca507c6c4810d0858d6fbd8f5a1ece52e755c (diff) | |
Rich printing of messages.
Diffstat (limited to 'ide/coq.ml')
| -rw-r--r-- | ide/coq.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index 8392b7dbf..a60f327b4 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -302,13 +302,13 @@ let handle_intermediate_message handle xml = let logger = match handle.waiting_for with | Some (_, l) -> l | None -> function - | Pp.Error -> Minilib.log ~level:`ERROR - | Pp.Info -> Minilib.log ~level:`INFO - | Pp.Notice -> Minilib.log ~level:`NOTICE - | Pp.Warning -> Minilib.log ~level:`WARNING - | Pp.Debug _ -> Minilib.log ~level:`DEBUG + | Pp.Error -> fun s -> Minilib.log ~level:`ERROR (xml_to_string s) + | Pp.Info -> fun s -> Minilib.log ~level:`INFO (xml_to_string s) + | Pp.Notice -> fun s -> Minilib.log ~level:`NOTICE (xml_to_string s) + | Pp.Warning -> fun s -> Minilib.log ~level:`WARNING (xml_to_string s) + | Pp.Debug _ -> fun s -> Minilib.log ~level:`DEBUG (xml_to_string s) in - logger level content + logger level (Richpp.richpp_of_xml content) let handle_feedback feedback_processor xml = let feedback = Feedback.to_feedback xml in |