diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2016-06-27 15:16:56 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2016-06-27 18:35:08 +0200 |
commit | d4725f692a5f202ca4c5d6341b586b0e377f6973 (patch) | |
tree | 9cd74c65a51ca06547e9117b4d4901ec18a9519b /ide/coqOps.ml | |
parent | 403c12ac3e8a9c3719aacbfa113600abc74846b7 (diff) | |
parent | a10e3e0252560992128f490dfcb3d76c4bbf317b (diff) |
Merge remote-tracking branch 'github/pr/223' into feedback-locations
Was PR#223: Allow feedback messages to carry a location.
Diffstat (limited to 'ide/coqOps.ml')
-rw-r--r-- | ide/coqOps.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 6ffe771da..c912adcf1 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -460,7 +460,9 @@ object(self) log "GlobRef" id; self#attach_tooltip sentence loc (Printf.sprintf "%s %s %s" filepath ident ty) - | ErrorMsg(loc, msg), Some (id,sentence) -> + | Message(Error, loc, msg), Some (id,sentence) -> + let loc = Option.default Loc.ghost loc in + let msg = Richpp.raw_print msg in log "ErrorMsg" id; remove_flag sentence `PROCESSING; add_flag sentence (`ERROR (loc, msg)); |