CmsgIdFd export and Win32 definition

Defines a CmsgIdFd pattern (unsupported) in Network.Socket.Win32.Cmsg and exports CmsgIdFd in Network.Socket
haskell · Jul 16, 2020 · d4a4bb1 · d4a4bb1
1 parent 33d0043
commit d4a4bb1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/Network/Socket.hs b/Network/Socket.hs
@@ -245,6 +245,7 @@ module Network.Socket
             ,CmsgIdIPv6TClass
             ,CmsgIdIPv4PktInfo
             ,CmsgIdIPv6PktInfo
+            ,CmsgIdFd
             ,UnsupportedCmsgId)
     -- ** APIs for control message
     , lookupCmsg

diff --git a/Network/Socket/Win32/Cmsg.hsc b/Network/Socket/Win32/Cmsg.hsc
@@ -66,8 +66,11 @@ pattern CmsgIdIPv4PktInfo = CmsgId (#const IPPROTO_IP) (#const IP_PKTINFO)
 pattern CmsgIdIPv6PktInfo :: CmsgId
 pattern CmsgIdIPv6PktInfo = CmsgId (#const IPPROTO_IPV6) (#const IPV6_PKTINFO)
 
--- Use WSADuplicateSocket for CmsgIdFd
--- pattern CmsgIdFd :: CmsgId
+-- | Control message ID for POSIX file-descriptor passing.
+--
+--  Not supported on Windows; use WSADuplicateSocket instead
+pattern CmsgIdFd :: CmsgId
+pattern CmsgIdFd = CmsgId (-1) (-1)
 
 ----------------------------------------------------------------
 
@@ -196,6 +199,7 @@ cmsgIdPairs =
     , (CmsgIdIPv6TClass, "CmsgIdIPv6TClass")
     , (CmsgIdIPv4PktInfo, "CmsgIdIPv4PktInfo")
     , (CmsgIdIPv6PktInfo, "CmsgIdIPv6PktInfo")
+    , (CmsgIdFd, "CmsgIdFd")
     ]
 
 cmsgIdBijection :: Bijection CmsgId String