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/blog.ur | |
parent | e7ee2c10c91252731665373f3fe01f43adfeed72 (diff) |
Almost have that nested save function compiling
Diffstat (limited to 'tests/blog.ur')
-rw-r--r-- | tests/blog.ur | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/blog.ur b/tests/blog.ur new file mode 100644 index 00000000..a3a06cb6 --- /dev/null +++ b/tests/blog.ur @@ -0,0 +1,16 @@ +fun main wrap = + let + fun edit id = + let + val r = 0 + fun save () = <xml/> + in + wrap (save ()) + end + in + edit 0 + end + +fun wrap (inside : xbody) = return <xml/> + +val main () = main wrap |