diff --git a/Network/Socket/Shutdown.hs b/Network/Socket/Shutdown.hs
index b29f6406..5caaebef 100644
--- a/Network/Socket/Shutdown.hs
+++ b/Network/Socket/Shutdown.hs
@@ -56,8 +56,7 @@ gracefulClose s tmout = sendRecvFIN `E.finally` close s
           Left (E.SomeException _) -> return ()
           Right () -> do
               -- Waiting TCP FIN.
-              E.bracket (mallocBytes bufSize) free $ \buf -> do
-                  {-# SCC "" #-} recvEOFloop buf
+              E.bracket (mallocBytes bufSize) free recvEOFloop
     -- milliseconds. Taken from BSD fast clock value.
     clock = 200
     recvEOFloop buf = loop 0
diff --git a/network.cabal b/network.cabal
index c616626e..99725113 100644
--- a/network.cabal
+++ b/network.cabal
@@ -132,7 +132,7 @@ library
     ghc-options:      -Wall -fwarn-tabs
     build-depends:
         base >=4.9 && <5,
-        bytestring >=0.10 && <0.13,
+        bytestring >=0.10,
         deepseq,
         directory