From ecd94408696117d34d4c13031c30d18033504827 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 c7494b49..e4e8f942 100644 --- a/Network/Socket/Syscall.hs +++ b/Network/Socket/Syscall.hs @@ -123,7 +123,7 @@ socket family stype protocol = E.bracketOnError create c_close $ \fd -> do 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 adc7cfbe78c229c59fd628abb0e151c646e65e36 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, 2 deletions(-) diff --git a/Network/Socket/Syscall.hs b/Network/Socket/Syscall.hs index e4e8f942..c662d04d 100644 --- a/Network/Socket/Syscall.hs +++ b/Network/Socket/Syscall.hs @@ -6,9 +6,7 @@ module Network.Socket.Syscall where import Foreign.Marshal.Utils (with) import qualified Control.Exception as E -# if defined(mingw32_HOST_OS) import System.IO.Error (catchIOError) -#endif #if defined(mingw32_HOST_OS) import Control.Exception (bracket)