summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
92ddb92)
Recent CPP-related wibblement meant that _WIN32 wasn't defined when
the pre-proc was run (cf. -undef usage.) Avoid the use of _WIN32
data PortID =
Service String -- Service Name eg "ftp"
| PortNumber PortNumber -- User defined Port Number
data PortID =
Service String -- Service Name eg "ftp"
| PortNumber PortNumber -- User defined Port Number
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
| UnixSocket String -- Unix family socket in file system
#endif
| UnixSocket String -- Unix family socket in file system
#endif
connect sock (SockAddrInet port (hostAddress he))
socketToHandle sock ReadWriteMode
connect sock (SockAddrInet port (hostAddress he))
socketToHandle sock ReadWriteMode
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
connectTo _ (UnixSocket path) = do
sock <- socket AF_UNIX Datagram 0
connect sock (SockAddrUnix path)
connectTo _ (UnixSocket path) = do
sock <- socket AF_UNIX Datagram 0
connect sock (SockAddrUnix path)
listen sock maxListenQueue
return sock
listen sock maxListenQueue
return sock
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
listenOn (UnixSocket path) = do
sock <- socket AF_UNIX Datagram 0
bindSocket sock (SockAddrUnix path)
listenOn (UnixSocket path) = do
sock <- socket AF_UNIX Datagram 0
bindSocket sock (SockAddrUnix path)
portID sa =
case sa of
SockAddrInet port _ -> PortNumber port
portID sa =
case sa of
SockAddrInet port _ -> PortNumber port
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
SockAddrUnix path -> UnixSocket path
#endif
SockAddrUnix path -> UnixSocket path
#endif
-- This is for a box running cygwin32 toolchain.
-- This is for a box running cygwin32 toolchain.
+#if defined(mingw32_TARGET_OS) || defined(cygwin32_TARGET_OS)
data SocketType =
Stream
| Datagram
data SocketType =
Stream
| Datagram