packages feed

opaleye-classy 0.2.1.0 → 0.3.0.0

raw patch · 2 files changed

+15/−11 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

- Opaleye.Classy: _OpaleyeQueryError :: AsOpaleyeError r_aeoJ => Prism' r_aeoJ QueryError
+ Opaleye.Classy: _OpaleyeQueryError :: AsOpaleyeError r_aelI => Prism' r_aelI QueryError
- Opaleye.Classy: _OpaleyeResultError :: AsOpaleyeError r_aeoJ => Prism' r_aeoJ ResultError
+ Opaleye.Classy: _OpaleyeResultError :: AsOpaleyeError r_aelI => Prism' r_aelI ResultError
- Opaleye.Classy: _OpaleyeSqlError :: AsOpaleyeError r_aeoJ => Prism' r_aeoJ SqlError
+ Opaleye.Classy: _OpaleyeSqlError :: AsOpaleyeError r_aelI => Prism' r_aelI SqlError
- Opaleye.Classy: class AsOpaleyeError r_aeoJ where _OpaleyeSqlError = (.) _OpaleyeError _OpaleyeSqlError _OpaleyeQueryError = (.) _OpaleyeError _OpaleyeQueryError _OpaleyeResultError = (.) _OpaleyeError _OpaleyeResultError
+ Opaleye.Classy: class AsOpaleyeError r_aelI where _OpaleyeSqlError = (.) _OpaleyeError _OpaleyeSqlError _OpaleyeQueryError = (.) _OpaleyeError _OpaleyeQueryError _OpaleyeResultError = (.) _OpaleyeError _OpaleyeResultError
- Opaleye.Classy: class HasOpaleyeEnv c_adZX where opaleyeEnvConn = (.) opaleyeEnv opaleyeEnvConn
+ Opaleye.Classy: class HasOpaleyeEnv c_adWW where opaleyeEnvConn = (.) opaleyeEnv opaleyeEnvConn
- Opaleye.Classy: liftDelete :: CanOpaleye m c e => Table colW colR -> (colR -> Column PGBool) -> m Int64
+ Opaleye.Classy: liftDelete :: CanOpaleye c e m => Table colW colR -> (colR -> Column PGBool) -> m Int64
- Opaleye.Classy: liftInsert :: CanOpaleye m c e => Table colW colR -> colW -> m Int64
+ Opaleye.Classy: liftInsert :: CanOpaleye c e m => Table colW colR -> colW -> m Int64
- 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: liftInsertReturning :: (CanOpaleye c e m, Default QueryRunner ret hask, Default Unpackspec ret ret) => Table colW colR -> (colR -> ret) -> colW -> m [hask]
- Opaleye.Classy: liftQuery :: (CanOpaleye m c e, Default QueryRunner a b) => Query a -> m [b]
+ Opaleye.Classy: liftQuery :: (CanOpaleye c e m, Default QueryRunner a b) => Query a -> m [b]
- Opaleye.Classy: liftQueryFirst :: (CanOpaleye m c e, Default QueryRunner a b, Applicative m) => Query a -> m (Maybe b)
+ Opaleye.Classy: liftQueryFirst :: (CanOpaleye c e m, Default QueryRunner a b, Applicative m) => Query a -> m (Maybe b)
- Opaleye.Classy: liftUpdate :: CanOpaleye m c e => Table colW colR -> (colR -> colW) -> (colR -> Column PGBool) -> m Int64
+ Opaleye.Classy: liftUpdate :: CanOpaleye c e m => Table colW colR -> (colR -> colW) -> (colR -> Column PGBool) -> m Int64
- Opaleye.Classy: opaleyeEnvConn :: HasOpaleyeEnv c_adZX => Lens' c_adZX Connection
+ Opaleye.Classy: opaleyeEnvConn :: HasOpaleyeEnv c_adWW => Lens' c_adWW Connection
- Opaleye.Classy: type CanOpaleye m c e = (MonadReader c m, MonadError e m, MonadIO m, Applicative m, AsOpaleyeError e, HasOpaleyeEnv c)
+ Opaleye.Classy: type CanOpaleye c e m = (MonadReader c m, MonadError e m, MonadIO m, Applicative m, AsOpaleyeError e, HasOpaleyeEnv c)

Files

Opaleye/Classy.hs view
@@ -45,17 +45,21 @@   deriving Show makeClassyPrisms ''OpaleyeError -type CanOpaleye m c e =+type CanOpaleye c e m =   ( MonadReader c m   , MonadError e m   , MonadIO m-  , Applicative m+  -- This applicative constraint doesn't actually need to be here,+  -- but it makes the constraint easier to deal with in base < 4.8+  -- I'm personally stuck on GHC 7.8 until we can upgrade to+  -- Centos 7, so this is very helpful for me. :)+  , Applicative m       , AsOpaleyeError e   , HasOpaleyeEnv c   )  liftQueryFirst-  :: ( CanOpaleye m c e+  :: ( CanOpaleye c e m     , Default QueryRunner a b     , Applicative m     )@@ -64,7 +68,7 @@ liftQueryFirst = fmap (^? _head) . liftQuery  liftQuery-  :: ( CanOpaleye m c e+  :: ( CanOpaleye c e m     , Default QueryRunner a b     )   => Query a@@ -72,14 +76,14 @@ liftQuery q = withConn (`runQuery` q)  liftInsert-  :: CanOpaleye m c e+  :: CanOpaleye c e m   => Table colW colR   -> colW   -> m Int64 liftInsert t w = withConn $ \conn -> runInsert conn t w  liftInsertReturning-  :: ( CanOpaleye m c e+  :: ( CanOpaleye c e m     , Default QueryRunner ret hask     , Default Unpackspec ret ret     )@@ -90,7 +94,7 @@ liftInsertReturning t f c = withConn $ \conn -> runInsertReturning conn t c f  liftUpdate-  :: CanOpaleye m c e+  :: CanOpaleye c e m   => Table colW colR   -> (colR -> colW)   -> (colR -> Column PGBool)@@ -98,16 +102,16 @@ liftUpdate t u p = withConn $ \conn -> runUpdate conn t u p  liftDelete-  :: CanOpaleye m c e+  :: CanOpaleye c e m   => Table colW colR   -> (colR -> Column PGBool)   -> m Int64 liftDelete t p = withConn $ \conn -> runDelete conn t p -withConn :: CanOpaleye m c e => (Connection -> IO a) -> m a+withConn :: CanOpaleye c e m => (Connection -> IO a) -> m a withConn f = view opaleyeEnvConn >>= flip withGivenConn f -withGivenConn :: CanOpaleye m c e => Connection -> (Connection -> IO a) -> m a+withGivenConn :: CanOpaleye c e m => Connection -> (Connection -> IO a) -> m a withGivenConn c f = liftIO $ f c  closeEnv :: OpaleyeEnv -> IO ()
opaleye-classy.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                opaleye-classy-version:             0.2.1.0+version:             0.3.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