X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fmisc%2FSocketPrim.lhs;h=b63f663e104b3b14ba9a7ed83e5de3493acb3f31;hb=90bf51fc2336d45c6bdf347142ac14a3e68b85c1;hp=e76118574e100dfffbe88dda8f5a09712be6c83b;hpb=2e1efd5786d05b32290a33070221c64326dcb47c;p=ghc-hetmet.git

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index e761185..b63f663 100644
--- a/ghc/lib/misc/SocketPrim.lhs
+++ b/ghc/lib/misc/SocketPrim.lhs
@@ -1252,7 +1252,7 @@ use @withSocketsDo@...:
 
 \begin{code}
 withSocketsDo :: IO a -> IO a
-#if !defined(HAVE_WINSOCK_H) || defined(__CYGWIN32__)
+#if !defined(HAVE_WINSOCK_H) || defined(cygwin32_TARGET_OS)
 withSocketsDo x = x
 #else
 withSocketsDo act = do