diff --git a/src/Types.hs b/src/Types.hs index 17089f8..c1e352c 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -4,6 +4,7 @@ module Types where + import ClassyPrelude import Data.Maybe import System.IO (stdin, stdout) @@ -25,7 +26,7 @@ deriving instance Hashable PortNumber deriving instance Generic N.SockAddr deriving instance Hashable N.SockAddr - +{-# NOINLINE defaultRecvBufferSize #-} defaultRecvBufferSize :: Int defaultRecvBufferSize = unsafeDupablePerformIO $ bracket (N.socket N.AF_INET N.Stream 0) N.close (\sock -> N.getSocketOption sock N.RecvBuffer)