hedis 0.6.6 → 0.6.7

raw patch · 5 files changed

+12/−12 lines, 5 filesdep ~basedep ~bytestring-lexing

Dependency ranges changed: base, bytestring-lexing

Files

hedis.cabal +3/−3
src/Database/Redis/Core.hs +1/−1
src/Database/Redis/Protocol.hs +2/−2
src/Database/Redis/ProtocolPipelining.hs +2/−2
src/Database/Redis/Types.hs +4/−4

hedis.cabal view

@@ -1,5 +1,5 @@ name:               hedis-version:            0.6.6+version:            0.6.7 synopsis:     Client library for the Redis datastore: supports full command set,       pipelining.@@ -56,10 +56,10 @@   ghc-prof-options: -auto-all   exposed-modules:  Database.Redis   build-depends:    attoparsec >= 0.12,-                    base == 4.*,+                    base >= 4.6 && < 5,                     BoundedChan >= 1.0,                     bytestring >= 0.9 && < 0.11,-                    bytestring-lexing >= 0.4,+                    bytestring-lexing >= 0.5,                     mtl >= 2,                     network >= 2,                     resource-pool >= 0.2,

src/Database/Redis/Core.hs view

@@ -10,7 +10,7 @@     auth, select ) where -import Prelude hiding (catch)+import Prelude import Control.Applicative import Control.Monad.Reader import qualified Data.ByteString as B

src/Database/Redis/Protocol.hs view

@@ -4,8 +4,8 @@  import Prelude hiding (error, take) import Control.Applicative-import Data.Attoparsec (takeTill)-import Data.Attoparsec.Char8 hiding (takeTill)+import Data.Attoparsec.ByteString (takeTill)+import Data.Attoparsec.ByteString.Char8 hiding (takeTill) import Data.ByteString.Char8 (ByteString) import qualified Data.ByteString.Char8 as B

src/Database/Redis/ProtocolPipelining.hs view

@@ -31,12 +31,12 @@     HostName, PortID(..) ) where -import           Prelude hiding (catch)+import           Prelude import           Control.Concurrent (ThreadId, forkIO, killThread) import           Control.Concurrent.BoundedChan import           Control.Exception import           Control.Monad-import           Data.Attoparsec+import           Data.Attoparsec.ByteString import qualified Data.ByteString as S import           Data.IORef import           Data.Typeable

src/Database/Redis/Types.hs view

@@ -5,8 +5,8 @@  import Control.Applicative import Data.ByteString.Char8 (ByteString, pack)-import Data.ByteString.Lex.Double (readDouble)-import Data.ByteString.Lex.Integral (readSigned, readDecimal)+import qualified Data.ByteString.Lex.Fractional as F (readSigned, readDecimal)+import qualified Data.ByteString.Lex.Integral as I (readSigned, readDecimal)  import Database.Redis.Protocol @@ -52,10 +52,10 @@ instance RedisResult Integer where     decode (Integer n) = Right n     decode r           =-        maybe (Left r) (Right . fst) . readSigned readDecimal =<< decode r+        maybe (Left r) (Right . fst) . I.readSigned I.readDecimal =<< decode r  instance RedisResult Double where-    decode r = maybe (Left r) (Right . fst) . readDouble =<< decode r+    decode r = maybe (Left r) (Right . fst) . F.readSigned F.readDecimal =<< decode r  instance RedisResult Status where     decode (SingleLine s) = Right $ case s of