diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-03-16 16:17:02 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-03-16 16:17:02 -0400 |
| commit | 1200a1527187fe7f21bbb0b74152efe33355e60b (patch) | |
| tree | 6a1012ed6bc009f4ba6860041f8213ef045678d0 /src/urweb.grm | |
| parent | 6ad3434977d9b6a9b8ccd969614b727493edfdb2 (diff) | |
More informative tag mismatch error message
Diffstat (limited to 'src/urweb.grm')
| -rw-r--r-- | src/urweb.grm | 6 |
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) |