summaryrefslogtreecommitdiff
path: root/tests/nest2.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 21:19:43 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 21:19:43 -0400
commit047a2f193646e08db526768dca8376b7270eecb5 (patch)
tree2be405017cad5af57826b17c1715d9579eb06d1b /tests/nest2.ur
parent9a22207b565607db64f95dda5fdc1c9e56224ec9 (diff)
Almost have that nested save function compiling
Diffstat (limited to 'tests/nest2.ur')
-rw-r--r--tests/nest2.ur15
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