diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -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.
diff --git a/Setup.hs b/Setup.hs
deleted file mode 100644
--- a/Setup.hs
+++ /dev/null
@@ -1,2 +0,0 @@
-import Distribution.Simple
-main = defaultMain
diff --git a/redis-io.cabal b/redis-io.cabal
--- a/redis-io.cabal
+++ b/redis-io.cabal
@@ -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
diff --git a/src/Database/Redis/IO/Connection.hs b/src/Database/Redis/IO/Connection.hs
--- a/src/Database/Redis/IO/Connection.hs
+++ b/src/Database/Redis/IO/Connection.hs
@@ -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