@@ -44,6 +44,7 @@ import Database.PostgreSQL.Simple.Types (Query(..))
4444import Database.PostgreSQL.Simple.TypeInfo.Types(TypeInfo)
4545import Control.Monad.Trans.State.Strict
4646import Control.Monad.Trans.Reader
47+import Control.Monad.Trans.Class
4748import GHC.IO.Exception
4849
4950-- | A Field represents metadata about a particular field
@@ -297,7 +298,7 @@ newtype RowParser a = RP { unRP :: ReaderT Row (StateT PQ.Column Conversion) a }
297298 deriving ( Functor, Applicative, Alternative, Monad )
298299
299300liftRowParser :: IO a -> RowParser a
300−liftRowParser = lift . lift
301+liftRowParser = RP . lift . lift . liftConversion
301302
302303newtype Conversion a = Conversion { runConversion :: Connection -> IO (Ok a) }
303304