Mercurial > urweb

view tests/transact.ur @ 1659:8de2ea0a0701

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change linking argument order, based on reported problems in Ubuntu 11.10
author Adam Chlipala <adam@chlipala.net>
date Thu, 05 Jan 2012 19:23:34 -0500
parents 1cc67fdac4d3
children
line wrap: on
line source
fun listHell n =
    if n <= 0 then
        []
    else
        n :: List.append (listHell (n-1)) (listHell (n-1))

fun doit r =
    Transactional.foo;
    return <xml>{[listHell (readError r.N)]}</xml>

fun main () = return <xml><body>
  <form> <textbox{#N}/> <submit action={doit}/> </form>
</body></xml>