snaplet-redis 0.1.0.2 → 0.1.0.3

raw patch · 2 files changed

+8/−12 lines, 2 filesdep +lensdep −data-lensdep −data-lens-templatedep ~snapPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: lens

Dependencies removed: data-lens, data-lens-template

Dependency ranges changed: snap

API changes (from Hackage documentation)

- Snap.Snaplet.RedisDB: runRedisDB :: (MonadIO m, MonadState app m) => Lens app (Snaplet RedisDB) -> Redis a -> m a

+ Snap.Snaplet.RedisDB: runRedisDB :: (MonadIO m, MonadState app m) => Simple Lens app (Snaplet RedisDB) -> Redis a -> m a

snaplet-redis.cabal view

@@ -1,5 +1,5 @@ Name:                snaplet-redis-Version:             0.1.0.2+Version:             0.1.0.3 Synopsis:            Redis support for Snap Framework Description:         This package provides a snaplet which exposes                      interface to Redis in-memory key-value storage as@@ -30,9 +30,8 @@    Build-depends:     base                >= 4 && < 5,-    data-lens           >= 2.0.1 && < 2.11,-    data-lens-template  == 2.1.*,+    lens                == 3.8.*,     hedis               == 0.6.*,     mtl                 >= 2 && < 3,-    snap                == 0.9.*,+    snap                == 0.11.*,     transformers        == 0.3.*

src/Snap/Snaplet/RedisDB.hs view

@@ -1,5 +1,6 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE Rank2Types #-}  {-| @@ -14,13 +15,9 @@  where -import Prelude hiding ((.))-import Control.Category ((.))+import Control.Lens import Control.Monad.State -import Data.Lens.Common-import Data.Lens.Template- import Database.Redis  import Snap.Snaplet@@ -32,7 +29,7 @@     { _connection :: Connection -- ^ DB connection pool.     } -makeLens ''RedisDB+makeLenses ''RedisDB   ------------------------------------------------------------------------------@@ -42,9 +39,9 @@ -- > runRedisDB database $ do -- >   set "hello" "world" runRedisDB :: (MonadIO m, MonadState app m) =>-               Lens app (Snaplet RedisDB) -> Redis a -> m a+               Simple Lens app (Snaplet RedisDB) -> Redis a -> m a runRedisDB snaplet action = do-  c <- gets $ getL (connection . snapletValue . snaplet)+  c <- gets $ view (snaplet . snapletValue . connection)   liftIO $ runRedis c action