add TCP_CONNECTIONTIMEOUT

haskell · Jan 13, 2025 · 9a29dde · 9a29dde
1 parent ca0a569
commit 9a29dde
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