@@ -143,10 +143,11 @@ withConnection
143143 :: forall schema0 schema1 io x
144144 . MonadBaseControl IO io
145145 => ByteString
146− -> (K LibPQ.Connection schema0 -> io (x, K LibPQ.Connection schema1))
146+ -- -> (K LibPQ.Connection schema0 -> io (x, K LibPQ.Connection schema1))
147+ -> PQ schema0 schema1 io x
147148 -> io x
148149withConnection connString action = do
149− (x, _conn) <- bracket (connectdb connString) finish action
150+ K x <- bracket (connectdb connString) finish (runPQ action)
150151 return x
151152
152153-- | We keep track of the schema via an Atkey indexed state monad transformer,