summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-03-16 16:17:02 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-03-16 16:17:02 -0400
commit9a25a26d4c2e1e86df39e770c84a505bf43ceb97 (patch)
tree6a1012ed6bc009f4ba6860041f8213ef045678d0 /src
parent147060e49808e92b1ae5c0c9f967fecc75627c5c (diff)
More informative tag mismatch error message
Diffstat (limited to 'src')
-rw-r--r--src/urweb.grm6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/urweb.grm b/src/urweb.grm
index a6af8aa3..4738f7f3 100644
--- a/src/urweb.grm
+++ b/src/urweb.grm
@@ -1342,7 +1342,11 @@ xmlOne : NOTAGS (EApp ((EVar (["Basis"], "cdata", Infer)
(if ErrorMsg.anyErrors () then
()
else
- ErrorMsg.errorAt pos "Begin and end tags don't match.";
+ ErrorMsg.errorAt pos ("Begin tag <"
+ ^ #1 (#1 tag)
+ ^ "> and end tag </"
+ ^ et
+ ^ "> don't match.");
(EWild, pos))
end)
| LBRACE eexp RBRACE (eexp)