wai-middleware-caching-redis 0.1.0.0 → 0.2.0.0

raw patch · 2 files changed

+9/−9 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Network/Wai/Middleware/RedisCache.hs +8/−8
• wai-middleware-caching-redis.cabal +1/−1

@@ -5,6 +5,9 @@     , cacheNoBody     , newCacheBackend     , defaultCacheBackend+    , defaultConnectInfo+    , ConnectInfo(..)+    , PortID (..)     ) where  import Network.Wai.Middleware.Cache (CacheBackend(..))@@ -17,7 +20,7 @@ import qualified Data.ByteString.Lazy      as LZ import           Data.IORef import           Data.Text                 (Text)-import           Database.Redis            (ConnectInfo, Connection, connect,+import           Database.Redis            (ConnectInfo(..), Connection, PortID(..), connect,                                             get, runRedis, set, defaultConnectInfo) import           Network.HTTP.Types.Header (ResponseHeaders) import           Network.HTTP.Types.Status (Status (..))@@ -44,13 +47,10 @@ type CacheContainer = Connection type RedisCacheBackend = CacheBackend CacheContainer CacheKey CacheValue -newCacheContainer :: Maybe ConnectInfo -> IO CacheContainer-newCacheContainer m_info = case m_info of-  Nothing -> connect defaultConnectInfo-  Just info -> connect info-+newCacheContainer :: ConnectInfo -> IO CacheContainer+newCacheContainer = connect -newCacheBackend :: Maybe ConnectInfo+newCacheBackend :: ConnectInfo                 -> (Request -> ByteString -> IO Bool)                 -> (Request -> Response -> IO ())                 -> (Request -> Response -> IO ())@@ -72,7 +72,7 @@ -- | Cache Backend which cache all GET requests using local redis on standard port -- You should use `cacheNoBody` instead of `cache` defaultCacheBackend :: IO RedisCacheBackend-defaultCacheBackend = newCacheBackend Nothing+defaultCacheBackend = newCacheBackend defaultConnectInfo                                       (\r _ -> return (requestMethod r == "GET"))                                       (\_ _ -> return ())                                       (\_ _ -> return ())

@@ -1,5 +1,5 @@ name:                wai-middleware-caching-redis-version:             0.1.0.0+version:             0.2.0.0 synopsis:            Cache Wai Middleware using Redis backend description:         Please see README.md homepage:            http://github.com/yogsototh/wai-middleware-caching/tree/master/wai-middleware-caching-redis#readme