@@ -296,8 +296,14 @@ data Row = Row {
296296newtype RowParser a = RP { unRP :: ReaderT Row (StateT PQ.Column Conversion) a }
297297 deriving ( Functor, Applicative, Alternative, Monad )
298298
299+liftRowParser :: IO a -> RowParser a
300+liftRowParser = lift . lift
301+
299302newtype Conversion a = Conversion { runConversion :: Connection -> IO (Ok a) }
300303
304+liftConversion :: IO a -> Conversion a
305+liftConversion m = Conversion (\_ -> Ok <$> m)
306+
301307instance Functor Conversion where
302308 fmap f m = Conversion $ \conn -> (fmap . fmap) f (runConversion m conn)
303309