diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-09-22 09:51:06 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-09-22 09:51:06 -0400 |
| commit | 8d4e456a56e3cf84589df3f8dd7181550200587f (patch) | |
| tree | f61d0476f2adf87c506fb62e82154b6e4f4609d2 | |
| parent | 74093a2f38e25a13378ca2a3cc8c2fae4c6f37de (diff) | |
Resugar tag names before printing parse errors
| -rw-r--r-- | src/urweb.grm | 9 | ||||
| -rw-r--r-- | tests/badTags.ur | 1 |
2 files changed, 8 insertions, 2 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index 7a4d143f..db99d3b5 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -1397,6 +1397,11 @@ xmlOne : NOTAGS (EApp ((EVar (["Basis"], "cdata", Infer) end) | tag GT xmlOpt END_TAG (let + fun tagOut s = + case s of + "tabl" => "table" + | _ => s + val pos = s (tagleft, GTright) val et = tagIn END_TAG in @@ -1423,9 +1428,9 @@ xmlOne : NOTAGS (EApp ((EVar (["Basis"], "cdata", Infer) () else ErrorMsg.errorAt pos ("Begin tag <" - ^ #1 (#1 tag) + ^ tagOut (#1 (#1 tag)) ^ "> and end tag </" - ^ et + ^ tagOut et ^ "> don't match."); (EWild, pos)) end) diff --git a/tests/badTags.ur b/tests/badTags.ur new file mode 100644 index 00000000..0cc6c06c --- /dev/null +++ b/tests/badTags.ur @@ -0,0 +1 @@ +fun main () : transaction page = <xml><body><table></div></body></xml> |