Fix a warning.

"Pattern matches are overlapped."
haskell · Aug 2, 2015 · 5e18ecf · 5e18ecf
1 parent 03b3754
commit 5e18ecf
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Network/Socket/Types.hsc b/Network/Socket/Types.hsc
@@ -834,7 +834,10 @@ isSupportedSockAddr addr = case addr of
 #if defined(CAN_SOCKET_SUPPORT)
   SockAddrCan{} -> True
 #endif
+#if !(defined(IPV6_SOCKET_SUPPORT) \
+      && defined(DOMAIN_SOCKET_SUPPORT) && defined(CAN_SOCKET_SUPPORT))
   _ -> False
+#endif
 
 #if defined(WITH_WINSOCK) || defined(cygwin32_HOST_OS)
 type CSaFamily = (#type unsigned short)