diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,7 @@
+1.1.1
+-----
+- Compatibility with `network >= 3`.
+
 1.1.0
 -----
 - Improve configuration of retry settings and refactor exceptions
diff --git a/cql-io.cabal b/cql-io.cabal
--- a/cql-io.cabal
+++ b/cql-io.cabal
@@ -1,5 +1,5 @@
 name:                 cql-io
-version:              1.1.0
+version:              1.1.1
 synopsis:             Cassandra CQL client.
 license:              MPL-2.0
 license-file:         LICENSE
diff --git a/src/lib/Database/CQL/IO/Connection/Socket.hs b/src/lib/Database/CQL/IO/Connection/Socket.hs
--- a/src/lib/Database/CQL/IO/Connection/Socket.hs
+++ b/src/lib/Database/CQL/IO/Connection/Socket.hs
@@ -32,7 +32,6 @@
 import Database.CQL.IO.Cluster.Host
 import Database.CQL.IO.Exception (ConnectionError (..))
 import Database.CQL.IO.Timeouts (Milliseconds (..))
-import Foreign.C.Types (CInt (..))
 import Network.Socket (HostName, PortNumber, SockAddr (..), ShutdownCmd (..))
 import Network.Socket (Family (..), AddrInfo (..), AddrInfoFlag (..))
 import Network.Socket.ByteString.Lazy (sendAll)
@@ -49,11 +48,8 @@
 data Socket = Stream !S.Socket | Tls !S.Socket !SSL
 
 instance Show Socket where
-    show s = show $ case s of
-        Stream x -> fd x
-        Tls  x _ -> fd x
-      where
-        fd x = let CInt n = S.fdSocket x in n
+    show (Stream s) = show s
+    show (Tls  s _) = show s
 
 resolve :: HostName -> PortNumber -> IO [InetAddr]
 resolve h p = do