diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2018-10-19 17:18:52 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2018-10-19 17:18:52 -0400 |
| commit | 31b7eea8489d84ae3abdb068aaf15a6fcdb02124 (patch) | |
| tree | 836543309d28a6a48abab7199e33c38e36b89cd2 /tests | |
| parent | ed803fdc31115945a105626faab6bd302785f0e7 (diff) | |
More telegraphic error text for clashing URL prefixes (closes #111)
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/dupTag.ur | 21 |
1 files changed, 21 insertions, 0 deletions
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> |