diff --git a/src/Tunnel.hs b/src/Tunnel.hs index bcb7d11..fda1b08 100644 --- a/src/Tunnel.hs +++ b/src/Tunnel.hs @@ -43,8 +43,6 @@ rrunTCPClient :: N.ClientSettings -> (Connection -> IO a) -> IO a rrunTCPClient cfg app = bracket (do (s,addr) <- N.getSocketFamilyTCP (N.getHost cfg) (N.getPort cfg) (N.getAddrFamily cfg) - N.setSocketOption s N.RecvBuffer defaultRecvBufferSize - N.setSocketOption s N.SendBuffer defaultSendBufferSize so_mark_val <- readIORef sO_MARK_Value when (so_mark_val /= 0 && N.isSupportedSocketOption sO_MARK) (N.setSocketOption s sO_MARK so_mark_val) return (s,addr) diff --git a/src/Types.hs b/src/Types.hs index 63da02a..3537fdb 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -34,9 +34,6 @@ defaultRecvBufferSize :: Int defaultRecvBufferSize = unsafeDupablePerformIO $ bracket (N.socket N.AF_INET N.Stream 0) N.close (\sock -> N.getSocketOption sock N.RecvBuffer) -defaultSendBufferSize :: Int -defaultSendBufferSize = defaultRecvBufferSize - sO_MARK :: N.SocketOption sO_MARK = N.CustomSockOpt (1, 36) -- https://elixir.bootlin.com/linux/latest/source/arch/alpha/include/uapi/asm/socket.h#L64