Mercurial > urweb

diff tests/transact.ur @ 1327:1cc67fdac4d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New argument to transactional free functions, to specify whether we are about to retry
author Adam Chlipala <adam@chlipala.net>
date Sat, 04 Dec 2010 11:15:20 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/transact.ur	Sat Dec 04 11:15:20 2010 -0500
@@ -0,0 +1,13 @@
+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>