diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2020-05-31 18:29:03 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2020-05-31 18:29:03 -0400 |
| commit | 6cc104634ef64be3be88c1fccbe98208d95d8a1a (patch) | |
| tree | 9001e5333e808808125978a52669a8bff3639438 /tests/dupTag.ur | |
| parent | 82fde07cef0e41b700b9a30137562eb05f2f2c6d (diff) | |
| parent | c2f1e1096f602b1cbd4531352f3e1ea6d656a186 (diff) | |
Merge branch 'dfsg_clean'
Diffstat (limited to 'tests/dupTag.ur')
| -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> |