diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-09-07 09:06:13 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-09-07 09:06:13 -0400 |
| commit | cdd504ea9f9dcf4cfe18756e48319b7a9df296cd (patch) | |
| tree | 301967018e16a7c4e7c27b64e5e4b08f288eba7f /tests/tryDml.ur | |
| parent | 5545969f485ef2fb944db8e7b0237acbabeb8d4c (diff) | |
'tryDml' works with Postgres
Diffstat (limited to 'tests/tryDml.ur')
| -rw-r--r-- | tests/tryDml.ur | 6 |
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> |