annotate tests/overflow.ur @ 1941:9f3597979e98

Tweaking handling of database transactions
author Adam Chlipala <adam@chlipala.net>
date Wed, 25 Dec 2013 13:11:43 -0500
parents 4d0b80dd4c37
children
rev   line source
adam@1522 1 fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1)
adam@1522 2
adam@1522 3 fun doit {N = n} = return <xml><body>{[List.length (makeList (readError n))]}</body></xml>
adam@1522 4
adam@1522 5 fun main () =
adam@1522 6 return <xml><body>
adam@1522 7 <form> <textbox{#N}/> <submit action={doit}/> </form>
adam@1522 8 </body></xml>