Skip to content

Commit

Permalink
removing SCC
Browse files Browse the repository at this point in the history
  • Loading branch information
kazu-yamamoto committed Apr 13, 2024
1 parent 99d33f6 commit 0505db5
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 3 deletions.
3 changes: 1 addition & 2 deletions Network/Socket/Shutdown.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion network.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down

0 comments on commit 0505db5

Please sign in to comment.