data PortID =
Service String -- Service Name eg "ftp"
| PortNumber PortNumber -- User defined Port Number
-#ifndef _WIN32
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
| UnixSocket String -- Unix family socket in file system
#endif
connect sock (SockAddrInet port (hostAddress he))
socketToHandle sock ReadWriteMode
-#ifndef _WIN32
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
connectTo _ (UnixSocket path) = do
sock <- socket AF_UNIX Datagram 0
connect sock (SockAddrUnix path)
listen sock maxListenQueue
return sock
-#ifndef _WIN32
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
listenOn (UnixSocket path) = do
sock <- socket AF_UNIX Datagram 0
bindSocket sock (SockAddrUnix path)
portID sa =
case sa of
SockAddrInet port _ -> PortNumber port
-#ifndef _WIN32
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
SockAddrUnix path -> UnixSocket path
#endif