Mercurial > urweb

view tests/nest2.ur @ 1895:2eabe66daef6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Experimenting with distribution via 'make dist', to allow deletion of autogenerated files from version control
author Adam Chlipala <adam@chlipala.net>
date Thu, 21 Nov 2013 14:53:01 -0500
parents 787d4931fb07
children
line wrap: on
line source
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