Merge PR #455.

Author: kazu-yamamoto

Network/Socket/Options.hsc

@@ -2,6 +2,7 @@
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE ViewPatterns #-}
 
 #include "HsNet.h"
 ##include "HsNetDef.h"
@@ -14,7 +15,8 @@ module Network.Socket.Options (
                 ,RecvLowWater,SendLowWater,RecvTimeOut,SendTimeOut
                 ,UseLoopBack,UserTimeout,IPv6Only
                 ,RecvIPv4TTL,RecvIPv4TOS,RecvIPv4PktInfo
-                ,RecvIPv6HopLimit,RecvIPv6TClass,RecvIPv6PktInfo)
+                ,RecvIPv6HopLimit,RecvIPv6TClass,RecvIPv6PktInfo
+                ,CustomSockOpt)
   , isSupportedSocketOption
   , whenSupported
   , getSocketType
@@ -273,6 +275,12 @@ pattern RecvIPv6PktInfo = SockOpt (-1) (-1)
 #endif
 #endif // HAVE_DECL_IPPROTO_IPV6
 
+pattern CustomSockOpt :: (CInt, CInt) -> SocketOption
+pattern CustomSockOpt xy <- ((\(SockOpt x y) -> (x, y)) -> xy)
+  where
+    CustomSockOpt (x, y) = SockOpt x y
+
+{-# COMPLETE CustomSockOpt #-}
 #ifdef SO_LINGER
 data StructLinger = StructLinger CInt CInt