hedis 0.6 → 0.6.1
raw patch · 3 files changed
+6/−9 lines, 3 filesdep ~bytestringPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: bytestring
API changes (from Hackage documentation)
Files
- hedis.cabal +3/−3
- src/Database/Redis/PubSub.hs +1/−1
- src/Database/Redis/Types.hs +2/−5
hedis.cabal view
@@ -1,5 +1,5 @@ name: hedis-version: 0.6+version: 0.6.1 synopsis: Client library for the Redis datastore: supports full command set, pipelining.@@ -89,7 +89,7 @@ build-depends: attoparsec == 0.10.*, base == 4.*, BoundedChan == 1.0.*,- bytestring == 0.9.*,+ bytestring >= 0.9 && < 0.11, bytestring-lexing == 0.4.*, mtl == 2.*, network == 2.*,@@ -122,7 +122,7 @@ main-is: test/Test.hs build-depends: base == 4.*,- bytestring == 0.9.*,+ bytestring >= 0.9 && < 0.11, hedis, HUnit == 1.2.*, mtl == 2.*,
src/Database/Redis/PubSub.hs view
@@ -220,7 +220,7 @@ where decodeMessage = Message <$> decode r1 <*> decode r2 decodePMessage = PMessage <$> decode r1 <*> decode r2 <*> decode (head rs)- decodeCnt = decode r2+ decodeCnt = fromInteger <$> decode r2 decodeMsg r = errMsg r
src/Database/Redis/Types.hs view
@@ -54,9 +54,6 @@ decode r = maybe (Left r) (Right . fst) . readSigned readDecimal =<< decode r -instance RedisResult Int where- decode = fmap fromInteger . decode- instance RedisResult Double where decode r = maybe (Left r) (Right . fst) . readDouble =<< decode r @@ -66,7 +63,7 @@ "PONG" -> Pong _ -> Status s decode r = Left r- + instance RedisResult RedisType where decode (SingleLine s) = Right $ case s of "none" -> None@@ -108,4 +105,4 @@ k <- decode r1 v <- decode r2 kvs <- pairs rs- return $ (k,v) : kvs + return $ (k,v) : kvs