@@ -46,13 +46,11 @@ import Control.Exception.Lifted
4646import Control.Monad.Base
4747import Control.Monad.Trans.Control
4848import Data.ByteString
49−import Data.Function
5049import Data.Monoid
5150import Generics.SOP
5251
5352import qualified Database.PostgreSQL.LibPQ as LibPQ
5453
55−import Squeal.PostgreSQL.Definition
5654import Squeal.PostgreSQL.Manipulation
5755import Squeal.PostgreSQL.Prettyprint
5856import Squeal.PostgreSQL.PQ
@@ -97,10 +95,11 @@ transactionallySchema
9795 -> PQ schema0 schema1 io x
9896 -> PQ schema0 schema1 io x
9997transactionallySchema mode u = PQ $ \ conn -> mask $ \ restore -> do
100− liftBase (LibPQ.exec (unK conn) ("BEGIN" <+> renderTransactionMode mode <> ";"))
98+ _ <- liftBase . LibPQ.exec (unK conn) $
99+ "BEGIN" <+> renderTransactionMode mode <> ";"
101100 x <- restore (unPQ u conn)
102101 `onException` (liftBase (LibPQ.exec (unK conn) "ROLLBACK"))
103− _ <- liftBase (LibPQ.exec (unK conn) "COMMIT")
102+ _ <- liftBase $ LibPQ.exec (unK conn) "COMMIT"
104103 return x
105104
106105-- | Run a schema changing computation `transactionallySchema_` in `DefaultMode`.