apiary-redis 1.5.0 → 1.5.1

raw patch · 2 files changed

+6/−12 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• apiary-redis.cabal +1/−1
• src/Web/Apiary/Database/Redis.hs +5/−11

@@ -1,5 +1,5 @@ name:                apiary-redis-version:             1.5.0+version:             1.5.1 synopsis:            redis support for apiary web framework. description:   example: <https://github.com/philopon/apiary/blob/master/examples/redis.hs>

@@ -9,10 +9,10 @@  module Web.Apiary.Database.Redis     ( -- * initializer-      initRedis+      RedisConn+    , initRedis     -- * query-    , runRedis-    , runRedisTx+    , redis     ) where  import Control.Monad.IO.Class(MonadIO(..))@@ -36,13 +36,7 @@              => Redis.Connection -> Initializer m exts (RedisConn ': exts) initRedis conn = initializer' $ return (RedisConn conn) -runRedis :: (MonadExts es m, Has RedisConn es, MonadIO m) => Redis.Redis a -> m a-runRedis r = do+redis :: (MonadExts es m, Has RedisConn es, MonadIO m) => Redis.Redis a -> m a+redis r = do     getExt (Proxy :: Proxy RedisConn) >>= \ (RedisConn c) ->         liftIO $ Redis.runRedis c r--runRedisTx :: (MonadExts es m, Has RedisConn es, MonadIO m)-           => Redis.RedisTx (Redis.Queued a) -> m (Redis.TxResult a)-runRedisTx r = do-    getExt (Proxy :: Proxy RedisConn) >>= \ (RedisConn c) ->-        liftIO . Redis.runRedis c $ Redis.multiExec r