git.iko.soy/squeal
on dev help sign in
un
5aed6b5Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Transaction.hs+1−1
compare with dev
unifiedsplit
@@ -93,7 +93,7 @@ rollbackOrCommit
93 => PQ schema0 schema1 io x
93 => PQ schema0 schema1 io x
94 -> PQ schema0 schema1 io x
94 -> PQ schema0 schema1 io x
95rollbackOrCommit u = PQ $ \ conn -> mask $ \ restore -> do
95rollbackOrCommit u = PQ $ \ conn -> mask $ \ restore -> do
96− x <- restore (runPQ u conn)
96+ x <- restore (unPQ u conn)
97 `onException` (liftBase (LibPQ.exec (unK conn) "ROLLBACK"))
97 `onException` (liftBase (LibPQ.exec (unK conn) "ROLLBACK"))
98 _ <- liftBase (LibPQ.exec (unK conn) "COMMIT")
98 _ <- liftBase (LibPQ.exec (unK conn) "COMMIT")
99 return x
99 return x