From 2c1cd95ecb8ec60b70299298dd574da6cb99e41d Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 13 Aug 2025 15:46:11 +0900 Subject: [PATCH 1/2] dontfrag for WINE --- Network/Socket/Syscall.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Network/Socket/Syscall.hs b/Network/Socket/Syscall.hs index 439087c9..90c7bd94 100644 --- a/Network/Socket/Syscall.hs +++ b/Network/Socket/Syscall.hs @@ -134,7 +134,7 @@ socket family stype protocol = setDontFragment s = when (family == AF_INET) $ #if HAVE_DECL_IP_DONTFRAG || HAVE_DECL_IP_MTU_DISCOVER - setSocketOption s DontFragment 1 + setSocketOption s DontFragment 1 `catchIOError` \_ -> return () #else -- do nothing return () From 168014a729303c596e98606d215064ad9b4247aa Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 13 Aug 2025 16:06:24 +0900 Subject: [PATCH 2/2] UNIX requires catchIOError --- Network/Socket/Syscall.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Network/Socket/Syscall.hs b/Network/Socket/Syscall.hs index 90c7bd94..1f4a638c 100644 --- a/Network/Socket/Syscall.hs +++ b/Network/Socket/Syscall.hs @@ -7,13 +7,13 @@ module Network.Socket.Syscall where import Data.Either (isRight) import qualified Control.Exception as E import Foreign.Marshal.Utils (with) +import System.IO.Error (catchIOError) #if defined(mingw32_HOST_OS) import Foreign (FunPtr) import Foreign.Marshal.Alloc (alloca) import GHC.Conc (asyncDoProc) import Network.Socket.Cbits -import System.IO.Error (catchIOError) # if __IO_MANAGER_WINIO__ >= 2 import qualified GHC.Event.Windows as Mgr import Foreign.Ptr (wordPtrToPtr)