diff options
-rw-r--r-- | src/tag.sml | 2 | ||||
-rw-r--r-- | tests/dupTag.ur | 21 |
2 files changed, 22 insertions, 1 deletions
diff --git a/src/tag.sml b/src/tag.sml index 94e5d44f..3040c36c 100644 --- a/src/tag.sml +++ b/src/tag.sml @@ -124,7 +124,7 @@ fun exp uf env (e, s) = () else ErrorMsg.errorAt loc - ("Duplicate HTTP tag " + ("Duplicate URL prefix " ^ s); if ek = ek' then () diff --git a/tests/dupTag.ur b/tests/dupTag.ur new file mode 100644 index 00000000..cee35df1 --- /dev/null +++ b/tests/dupTag.ur @@ -0,0 +1,21 @@ +structure S = struct + fun one () = + let + fun save r = return <xml/> + in + return <xml><body><form><submit action={save}/></form></body></xml> + end + fun two () = + let + fun save r = return <xml/> + in + return <xml><body><form><submit action={save}/></form></body></xml> + end +end + +fun main () : transaction page = return <xml> + <body> + <a link={S.one()}>one</a> + <a link={S.two()}>two</a> + </body> + </xml> |