diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-01 21:19:43 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-01 21:19:43 -0400 |
| commit | 332e63f89011488c8c1df9a0903f95be20d989a4 (patch) | |
| tree | 2be405017cad5af57826b17c1715d9579eb06d1b /tests/nest2.ur | |
| parent | e7ee2c10c91252731665373f3fe01f43adfeed72 (diff) | |
Almost have that nested save function compiling
Diffstat (limited to 'tests/nest2.ur')
| -rw-r--r-- | tests/nest2.ur | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/nest2.ur b/tests/nest2.ur new file mode 100644 index 00000000..9a1d271a --- /dev/null +++ b/tests/nest2.ur @@ -0,0 +1,15 @@ +fun wooho (wrap : xbody -> transaction page) = + let + fun subPage n = + let + fun subberPage () = wrap <xml>{[n]}</xml> + in + wrap <xml><a link={subberPage ()}>Go</a></xml> + end + in + subPage 0 + end + +fun wrap x = return <xml><body>{x}</body></xml> + +fun main () = wooho wrap |