packages feed

hedis-pile 0.5.1 → 0.5.2

raw patch · 2 files changed

+3/−5 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Database.Redis.Pile: pile :: (MonadIO ma, ma ~ Redis, Binary d, Show d) => ByteString -> ByteString -> Maybe ByteString -> (forall mb. MonadIO mb => mb (d, ByteString, [ByteString], Maybe Integer)) -> ma (Maybe d)
+ Database.Redis.Pile: pile :: (MonadIO ma, ma ~ Redis, Binary d) => ByteString -> ByteString -> Maybe ByteString -> (forall mb. MonadIO mb => mb (d, ByteString, [ByteString], Maybe Integer)) -> ma (Maybe d)

Files

hedis-pile.cabal view
@@ -1,5 +1,5 @@ name:           hedis-pile
-version:        0.5.1
+version:        0.5.2
 cabal-version:  >= 1.8
 build-type:     Simple
 stability:      Experimental
src/Database/Redis/Pile.hs view
@@ -27,8 +27,6 @@ import qualified Database.Redis as R
 import qualified Database.Redis.Tags as RT
 
---import Control.Monad.IO.Class (liftIO)
-
 -- | Stores computation results in Redis. Computation fires only  
 --   if data absent in cache. Of course, to refresh the data, they must first 
 --   remove from the cache.
@@ -49,7 +47,7 @@ --   
 --   * In all other cases time complexity does not make sense
 
-pile :: forall ma d . (MonadIO ma, ma ~ R.Redis, Binary d, Show d) => 
+pile :: forall ma d . (MonadIO ma, ma ~ R.Redis, Binary d) => 
        B.ByteString
             -- ^ Prefix for key and tags.
     -> B.ByteString        
@@ -74,7 +72,7 @@     res <- fetchPayload
     case res of
         Nothing -> runFn
-        Just res' -> return $ Just $ decode $ cs res'  
+        Just res' -> return . Just . decode . cs $ res'  
   where
     withPrefix = prx <> ":" <> key
     fetchPayload = do