removing SCC

haskell · Apr 13, 2024 · 0505db5 · 0505db5
1 parent 99d33f6
commit 0505db5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git 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
@@ -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