summaryrefslogtreecommitdiff
path: root/tests/tryDml.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-09-07 09:06:13 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-09-07 09:06:13 -0400
commitcdd504ea9f9dcf4cfe18756e48319b7a9df296cd (patch)
tree301967018e16a7c4e7c27b64e5e4b08f288eba7f /tests/tryDml.ur
parent5545969f485ef2fb944db8e7b0237acbabeb8d4c (diff)
'tryDml' works with Postgres
Diffstat (limited to 'tests/tryDml.ur')
-rw-r--r--tests/tryDml.ur6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/tryDml.ur b/tests/tryDml.ur
index bfe98cdb..942cc1cb 100644
--- a/tests/tryDml.ur
+++ b/tests/tryDml.ur
@@ -5,8 +5,10 @@ fun doStuff () =
dml (INSERT INTO t (Id) VALUES (0));
o1 <- tryDml (INSERT INTO t (Id) VALUES (0));
dml (INSERT INTO t (Id) VALUES (1));
- o2 <- tryDml (INSERT INTO t (Id) VALUES (1));
- return <xml>{[o1]}; {[o2]}</xml>
+ o2 <- tryDml (INSERT INTO t (Id) VALUES (2));
+ dml (INSERT INTO t (Id) VALUES (3));
+ o3 <- tryDml (INSERT INTO t (Id) VALUES (3));
+ return <xml>{[o1]}; {[o2]}; {[o3]}</xml>
fun main () = return <xml><body>
<form> <submit action={doStuff}/> </form>