hunk ./Network/Socket.hsc 1731
-sIsAcceptable (MkSocket _ AF_UNIX Stream _ status) = do
-    value <- readMVar status
-    return (value == Connected || value == Bound || value == Listening)
+sIsAcceptable (MkSocket _ AF_UNIX x _ status)
+    | x == Stream || x == SeqPacket = do
+        value <- readMVar status
+        return (value == Connected || value == Bound || value == Listening)