Merge pull request #599 from christopherm99/mac-timeout

Fix `UserTimeout` on macos
haskell · Jan 14, 2025 · 412cb41 · 412cb41
2 parents ca0a569 + 9a29dde
commit 412cb41
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Network/Socket/Options.hsc b/Network/Socket/Options.hsc
@@ -299,6 +299,8 @@ pattern NoDelay        = SockOpt (-1) (-1)
 pattern UserTimeout :: SocketOption
 #ifdef TCP_USER_TIMEOUT
 pattern UserTimeout    = SockOpt (#const IPPROTO_TCP) (#const TCP_USER_TIMEOUT)
+#elif defined(TCP_CONNECTIONTIMEOUT)
+pattern UserTimeout    = SockOpt (#const IPPROTO_TCP) (#const TCP_CONNECTIONTIMEOUT)
 #else
 pattern UserTimeout    = SockOpt (-1) (-1)
 #endif