Mercurial > urweb
comparison tests/nest2.ur @ 453:787d4931fb07
Almost have that nested save function compiling
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sat, 01 Nov 2008 21:19:43 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 452:222cbc1da232 | 453:787d4931fb07 |
|---|---|
| 1 fun wooho (wrap : xbody -> transaction page) = | |
| 2 let | |
| 3 fun subPage n = | |
| 4 let | |
| 5 fun subberPage () = wrap <xml>{[n]}</xml> | |
| 6 in | |
| 7 wrap <xml><a link={subberPage ()}>Go</a></xml> | |
| 8 end | |
| 9 in | |
| 10 subPage 0 | |
| 11 end | |
| 12 | |
| 13 fun wrap x = return <xml><body>{x}</body></xml> | |
| 14 | |
| 15 fun main () = wooho wrap |