From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 25 Jun 2009 09:46:09 +0000 (+0000)
Subject: fix build failure on Windows
X-Git-Tag: 2009-06-25~2
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6d1bee23640368ac3b6c9ebf52069df2a6f1b1b9;p=ghc-base.git

fix build failure on Windows
---

diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs
index 038319e..464097e 100644
--- a/GHC/IO/FD.hs
+++ b/GHC/IO/FD.hs
@@ -346,7 +346,11 @@ dup2 fd fdto = do
 setNonBlockingMode :: FD -> Bool -> IO FD
 setNonBlockingMode fd set = do 
   setNonBlockingFD (fdFD fd) set
+#if defined(mingw32_HOST_OS)
+  return fd
+#else
   return fd{ fdIsNonBlocking = fromEnum set }
+#endif
 
 ready :: FD -> Bool -> Int -> IO Bool
 ready fd write msecs = do