@@ -31,7 +31,7 @@ data SocketFamily =
31instance Show SocketFamily where
31instance Show SocketFamily where
32 show AF_UNSPEC = "AF_UNSPEC"
32 show AF_UNSPEC = "AF_UNSPEC"
33 show AF_INET = "AF_INET"
33 show AF_INET = "AF_INET"
34− show AF_INET6 = "AF_INET4"
34+ show AF_INET6 = "AF_INET6"
36instance ToCode SocketFamily where
36instance ToCode SocketFamily where
37 toCode AF_UNSPEC = 0
37 toCode AF_UNSPEC = 0