redis-io 1.0.0 → 1.1.0

raw patch · 4 files changed

+8/−11 lines, 4 filesdep ~networksetup-changedPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: network

API changes (from Hackage documentation)

Files

CHANGELOG.md +4/−0
Setup.hs +0/−2
redis-io.cabal +2/−2
src/Database/Redis/IO/Connection.hs +2/−7

CHANGELOG.md view

@@ -1,3 +1,7 @@+1.1.0+-----------------------------------------------------------------------------+- Update `network` dependency (see MR #5, thanks to @axeman).+ 1.0.0 ----------------------------------------------------------------------------- - Drop support for GHC < 8.0.

− Setup.hs

@@ -1,2 +0,0 @@-import Distribution.Simple-main = defaultMain

redis-io.cabal view

@@ -1,5 +1,5 @@ name:                redis-io-version:             1.0.0+version:             1.1.0 synopsis:            Yet another redis client. license:             MPL-2.0 license-file:        LICENSE@@ -46,7 +46,7 @@       , iproute           >= 1.3       , monad-control     >= 1.0       , mtl               >= 2.1-      , network           >= 2.6.1+      , network           >= 3.0       , operational       >= 0.2       , redis-resp        >= 1.0       , resource-pool     >= 0.2

src/Database/Redis/IO/Connection.hs view

@@ -30,13 +30,11 @@ import Data.Maybe (isJust) import Data.Redis import Data.Sequence (Seq, (|>))-import Data.Int import Data.Word-import Foreign.C.Types (CInt (..)) import Database.Redis.IO.Settings import Database.Redis.IO.Types import Database.Redis.IO.Timeouts (TimeoutManager, withTimeout)-import Network.Socket hiding (connect, close, send, recv)+import Network.Socket hiding (connect, close) import Network.Socket.ByteString (recv, sendMany) import System.Logger hiding (Settings, settings, close) import System.Timeout@@ -61,7 +59,7 @@     show = Char8.unpack . eval . bytes  instance ToBytes Connection where-    bytes c = bytes (address c) +++ val "#" +++ fd (sock c)+    bytes c = bytes (address c)  resolve :: String -> Word16 -> IO [InetAddr] resolve host port =@@ -169,9 +167,6 @@ errorCheck r       = return r  -- Helpers:--fd :: Socket -> Int32-fd !s = let CInt !n = fdSocket s in n  expect :: String -> Char8.ByteString -> Resp -> IO () expect x y = void . either throwIO return . matchStr x y