opaleye-classy 0.1.0.1 → 0.2.0.0
raw patch · 2 files changed
+29/−29 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- Opaleye.Classy: DbEnv :: Connection -> DbEnv
- Opaleye.Classy: DbQueryError :: QueryError -> DbError
- Opaleye.Classy: DbResultError :: ResultError -> DbError
- Opaleye.Classy: DbSqlError :: SqlError -> DbError
- Opaleye.Classy: _DbQueryError :: AsDbError r_aeoJ => Prism' r_aeoJ QueryError
- Opaleye.Classy: _DbResultError :: AsDbError r_aeoJ => Prism' r_aeoJ ResultError
- Opaleye.Classy: _DbSqlError :: AsDbError r_aeoJ => Prism' r_aeoJ SqlError
- Opaleye.Classy: _dbEnvConn :: DbEnv -> Connection
- Opaleye.Classy: data DbEnv
- Opaleye.Classy: data DbError
- Opaleye.Classy: dbEnvConn :: HasDbEnv c_adZX => Lens' c_adZX Connection
- Opaleye.Classy: instance AsDbError DbError
- Opaleye.Classy: instance HasDbEnv DbEnv
- Opaleye.Classy: instance Show DbError
- Opaleye.Classy: type CanDb m c e = (MonadReader c m, MonadError e m, MonadIO m, Applicative m, AsDbError e, HasDbEnv c)
+ Opaleye.Classy: OpaleyeEnv :: Connection -> OpaleyeEnv
+ Opaleye.Classy: OpaleyeQueryError :: QueryError -> OpaleyeError
+ Opaleye.Classy: OpaleyeResultError :: ResultError -> OpaleyeError
+ Opaleye.Classy: OpaleyeSqlError :: SqlError -> OpaleyeError
+ Opaleye.Classy: _OpaleyeQueryError :: AsOpaleyeError r_aeoJ => Prism' r_aeoJ QueryError
+ Opaleye.Classy: _OpaleyeResultError :: AsOpaleyeError r_aeoJ => Prism' r_aeoJ ResultError
+ Opaleye.Classy: _OpaleyeSqlError :: AsOpaleyeError r_aeoJ => Prism' r_aeoJ SqlError
+ Opaleye.Classy: _opaleyeEnvConn :: OpaleyeEnv -> Connection
+ Opaleye.Classy: data OpaleyeEnv
+ Opaleye.Classy: data OpaleyeError
+ Opaleye.Classy: instance AsOpaleyeError OpaleyeError
+ Opaleye.Classy: instance HasOpaleyeEnv OpaleyeEnv
+ Opaleye.Classy: instance Show OpaleyeError
+ Opaleye.Classy: opaleyeEnvConn :: HasOpaleyeEnv c_adZX => Lens' c_adZX Connection
+ Opaleye.Classy: type CanOpaleye m c e = (MonadReader c m, MonadError e m, MonadIO m, Applicative m, AsOpaleyeError e, HasOpaleyeEnv c)
- Opaleye.Classy: closeEnv :: DbEnv -> IO ()
+ Opaleye.Classy: closeEnv :: OpaleyeEnv -> IO ()
- Opaleye.Classy: liftDelete :: CanDb m c e => Table colW colR -> (colR -> Column PGBool) -> m Int64
+ Opaleye.Classy: liftDelete :: CanOpaleye m c e => Table colW colR -> (colR -> Column PGBool) -> m Int64
- Opaleye.Classy: liftInsert :: CanDb m c e => Table colW colR -> colW -> m Int64
+ Opaleye.Classy: liftInsert :: CanOpaleye m c e => Table colW colR -> colW -> m Int64
- Opaleye.Classy: liftInsertReturning :: (CanDb m c e, Default QueryRunner ret hask, Default Unpackspec ret ret) => Table colW colR -> (colR -> ret) -> colW -> m [hask]
+ Opaleye.Classy: liftInsertReturning :: (CanOpaleye m c e, Default QueryRunner ret hask, Default Unpackspec ret ret) => Table colW colR -> (colR -> ret) -> colW -> m [hask]
- Opaleye.Classy: liftQuery :: (CanDb m c e, Default QueryRunner a b) => Query a -> m [b]
+ Opaleye.Classy: liftQuery :: (CanOpaleye m c e, Default QueryRunner a b) => Query a -> m [b]
- Opaleye.Classy: liftQueryFirst :: (CanDb m c e, Default QueryRunner a b, Applicative m) => Query a -> m (Maybe b)
+ Opaleye.Classy: liftQueryFirst :: (CanOpaleye m c e, Default QueryRunner a b, Applicative m) => Query a -> m (Maybe b)
- Opaleye.Classy: liftUpdate :: CanDb m c e => Table colW colR -> (colR -> colW) -> (colR -> Column PGBool) -> m Int64
+ Opaleye.Classy: liftUpdate :: CanOpaleye m c e => Table colW colR -> (colR -> colW) -> (colR -> Column PGBool) -> m Int64
Files
- Opaleye/Classy.hs +28/−28
- opaleye-classy.cabal +1/−1
Opaleye/Classy.hs view
@@ -4,18 +4,18 @@ {-# LANGUAGE RankNTypes #-} {-# LANGUAGE TemplateHaskell #-} module Opaleye.Classy- ( DbEnv(DbEnv,_dbEnvConn)- , dbEnvConn- , DbError(DbSqlError,DbQueryError,DbResultError)- , _DbSqlError, _DbQueryError, _DbResultError- , CanDb+ ( OpaleyeEnv(OpaleyeEnv,_opaleyeEnvConn)+ , opaleyeEnvConn+ , closeEnv+ , OpaleyeError(OpaleyeSqlError,OpaleyeQueryError,OpaleyeResultError)+ , _OpaleyeSqlError, _OpaleyeQueryError, _OpaleyeResultError+ , CanOpaleye , liftQueryFirst , liftQuery , liftInsert , liftInsertReturning , liftDelete , liftUpdate- , closeEnv , derivePGField ) where @@ -34,28 +34,28 @@ , runInsertReturning, runQuery, runUpdate ) -data DbEnv = DbEnv- { _dbEnvConn :: Connection }-makeClassy ''DbEnv+data OpaleyeEnv = OpaleyeEnv+ { _opaleyeEnvConn :: Connection }+makeClassy ''OpaleyeEnv -data DbError- = DbSqlError SqlError- | DbQueryError QueryError- | DbResultError ResultError+data OpaleyeError+ = OpaleyeSqlError SqlError+ | OpaleyeQueryError QueryError+ | OpaleyeResultError ResultError deriving Show-makeClassyPrisms ''DbError+makeClassyPrisms ''OpaleyeError -type CanDb m c e =+type CanOpaleye m c e = ( MonadReader c m , MonadError e m , MonadIO m , Applicative m- , AsDbError e- , HasDbEnv c+ , AsOpaleyeError e+ , HasOpaleyeEnv c ) liftQueryFirst- :: ( CanDb m c e+ :: ( CanOpaleye m c e , Default QueryRunner a b , Applicative m )@@ -64,7 +64,7 @@ liftQueryFirst = fmap (^? _head) . liftQuery liftQuery- :: ( CanDb m c e+ :: ( CanOpaleye m c e , Default QueryRunner a b ) => Query a@@ -72,14 +72,14 @@ liftQuery q = withConn (`runQuery` q) liftInsert- :: CanDb m c e+ :: CanOpaleye m c e => Table colW colR -> colW -> m Int64 liftInsert t w = withConn $ \conn -> runInsert conn t w liftInsertReturning- :: ( CanDb m c e+ :: ( CanOpaleye m c e , Default QueryRunner ret hask , Default Unpackspec ret ret )@@ -90,7 +90,7 @@ liftInsertReturning t f c = withConn $ \conn -> runInsertReturning conn t c f liftUpdate- :: CanDb m c e+ :: CanOpaleye m c e => Table colW colR -> (colR -> colW) -> (colR -> Column PGBool)@@ -98,20 +98,20 @@ liftUpdate t u p = withConn $ \conn -> runUpdate conn t u p liftDelete- :: CanDb m c e+ :: CanOpaleye m c e => Table colW colR -> (colR -> Column PGBool) -> m Int64 liftDelete t p = withConn $ \conn -> runDelete conn t p -withConn :: CanDb m c e => (Connection -> IO a) -> m a-withConn f = view dbEnvConn >>= flip withGivenConn f+withConn :: CanOpaleye m c e => (Connection -> IO a) -> m a+withConn f = view opaleyeEnvConn >>= flip withGivenConn f -withGivenConn :: CanDb m c e => Connection -> (Connection -> IO a) -> m a+withGivenConn :: CanOpaleye m c e => Connection -> (Connection -> IO a) -> m a withGivenConn c f = liftIO $ f c -closeEnv :: DbEnv -> IO ()-closeEnv = close . (^.dbEnvConn)+closeEnv :: OpaleyeEnv -> IO ()+closeEnv = close . (^.opaleyeEnvConn) derivePGField :: forall a b. FromField a
opaleye-classy.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: opaleye-classy-version: 0.1.0.1+version: 0.2.0.0 synopsis: Opaleye wrapped up in classy MTL attire. description: Classy MTL extension of the lovely Opaleye library, which simply just wraps things up in a MonadReader , MonadError context where the config & error are constrained by Classy Lenses & Prisms rather than by concrete types