Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[project @ 2003-01-17 16:34:02 by sof]

mingw: make it compile
  • Loading branch information...
commit c1fa53e24731befd0535b9faab74e9a217f8780e 1 parent 31f0948
sof authored
Showing with 2 additions and 0 deletions.
  1. +2 −0  Network.hs
2  Network.hs
View
@@ -198,10 +198,12 @@ accept sock@(MkSocket _ AF_INET _ _ _) = do
-- if getHostByName fails, we fall back to the IP address
handle <- socketToHandle sock' ReadWriteMode
return (handle, peer, port)
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
accept sock@(MkSocket _ AF_UNIX _ _ _) = do
~(sock', (SockAddrUnix path)) <- Socket.accept sock
handle <- socketToHandle sock' ReadWriteMode
return (handle, path, -1)
+#endif
accept sock@(MkSocket _ family _ _ _) =
error $ "Sorry, address family " ++ (show family) ++ " is not supported!"
Please sign in to comment.
Something went wrong with that request. Please try again.