diff options
-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> |