removing SCC

Author: kazu-yamamoto

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

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