From 49357da55bd0a3e0a74bd76cf8c6ca4560ea493d Mon Sep 17 00:00:00 2001 From: Shea Levy Date: Mon, 7 Feb 2022 11:48:08 -0500 Subject: [PATCH] Add SO_ACCEPTCONN SocketOption --- Network/Socket/Options.hsc | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/Network/Socket/Options.hsc b/Network/Socket/Options.hsc index 373d2b3c..d97524b6 100644 --- a/Network/Socket/Options.hsc +++ b/Network/Socket/Options.hsc @@ -10,9 +10,9 @@ module Network.Socket.Options ( SocketOption(SockOpt ,UnsupportedSocketOption - ,Debug,ReuseAddr,SoDomain,Type,SoProtocol,SoError,DontRoute - ,Broadcast,SendBuffer,RecvBuffer,KeepAlive,OOBInline,TimeToLive - ,MaxSegment,NoDelay,Cork,Linger,ReusePort + ,AcceptConn,Debug,ReuseAddr,SoDomain,Type,SoProtocol,SoError + ,DontRoute,Broadcast,SendBuffer,RecvBuffer,KeepAlive,OOBInline + ,TimeToLive,MaxSegment,NoDelay,Cork,Linger,ReusePort ,RecvLowWater,SendLowWater,RecvTimeOut,SendTimeOut ,UseLoopBack,UserTimeout,IPv6Only ,RecvIPv4TTL,RecvIPv4TOS,RecvIPv4PktInfo @@ -69,6 +69,13 @@ pattern UnsupportedSocketOption :: SocketOption pattern UnsupportedSocketOption = SockOpt (-1) (-1) #ifdef SOL_SOCKET +-- | SO_ACCEPTCONN, read-only +pattern AcceptConn :: SocketOption +#ifdef SO_ACCEPTCONN +pattern AcceptConn = SockOpt (#const SOL_SOCKET) (#const SO_ACCEPTCONN) +#else +pattern AcceptConn = SockOpt (-1) (-1) +#endif -- | SO_DEBUG pattern Debug :: SocketOption #ifdef SO_DEBUG