FIX show Unsupported* as full pattern name

Author: archaephyrryx

Network/Socket/Options.hsc

@@ -392,7 +392,7 @@ getSockOpt s (SockOpt level opt) = do
 
 socketOptionPairs :: [Pair SocketOption String]
 socketOptionPairs =
-    [ (UnsupportedSocketOption, "Unsupported")
+    [ (UnsupportedSocketOption, "UnsupportedSocketOption")
     , (Debug, "Debug")
     , (ReuseAddr, "ReuseAddr")
     , (SoDomain, "SoDomain")

Network/Socket/Posix/Cmsg.hsc

@@ -231,7 +231,7 @@ instance ControlMessage Fd where
 
 cmsgIdPairs :: [Pair CmsgId String]
 cmsgIdPairs =
-    [ (UnsupportedCmsgId, "Unsupported")
+    [ (UnsupportedCmsgId, "UnsupportedCmsgId")
     , (CmsgIdIPv4TTL, "CmsgIdIPv4TTL")
     , (CmsgIdIPv6HopLimit, "CmsgIdIPv6HopLimit")
     , (CmsgIdIPv4TOS, "CmsgIdIPv4TOS")

Network/Socket/Types.hsc

@@ -1318,7 +1318,7 @@ instance Storable In6Addr where
 
 socktypePairs :: [Pair SocketType String]
 socktypePairs =
-    [ (UnsupportedSocketType, "Unsupported")
+    [ (UnsupportedSocketType, "UnsupportedSocketType")
     , (Stream, "Stream")
     , (Datagram, "Datagram") 
     , (Raw, "Raw")

Network/Socket/Win32/Cmsg.hsc

@@ -189,7 +189,7 @@ instance Storable IPv6PktInfo where
 
 cmsgIdPairs :: [Pair CmsgId String]
 cmsgIdPairs =
-    [ (UnsupportedCmsgId, "Unsupported")
+    [ (UnsupportedCmsgId, "UnsupportedCmsgId")
     , (CmsgIdIPv4TTL, "CmsgIdIPv4TTL")
     , (CmsgIdIPv6HopLimit, "CmsgIdIPv6HopLimit")
     , (CmsgIdIPv4TOS, "CmsgIdIPv4TOS")