@@ -93,7 +93,7 @@ rollbackOrCommit
9393 => PQ schema0 schema1 io x
9494 -> PQ schema0 schema1 io x
9595rollbackOrCommit u = PQ $ \ conn -> mask $ \ restore -> do
96− x <- restore (runPQ u conn)
96+ x <- restore (unPQ u conn)
9797 `onException` (liftBase (LibPQ.exec (unK conn) "ROLLBACK"))
9898 _ <- liftBase (LibPQ.exec (unK conn) "COMMIT")
9999 return x