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/wg_Command.ml | |
| parent | 85fca507c6c4810d0858d6fbd8f5a1ece52e755c (diff) | |
Rich printing of messages.
Diffstat (limited to 'ide/wg_Command.ml')
| -rw-r--r-- | ide/wg_Command.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ide/wg_Command.ml b/ide/wg_Command.ml index 163bd28b1..0ae57ee74 100644 --- a/ide/wg_Command.ml +++ b/ide/wg_Command.ml @@ -100,7 +100,10 @@ object(self) if Str.string_match (Str.regexp "\\. *$") com 0 then com else com ^ " " ^ arg ^" . " in - let log level message = result#buffer#insert (message^"\n") in + let log level message = + Ideutils.insert_xml result#buffer message; + result#buffer#insert "\n"; + in let process = Coq.bind (Coq.query ~logger:log (phrase,Stateid.dummy)) (function | Interface.Fail (_,l,str) -> |