From 6d1bee23640368ac3b6c9ebf52069df2a6f1b1b9 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 25 Jun 2009 09:46:09 +0000
Subject: [PATCH] fix build failure on Windows

---
 GHC/IO/FD.hs |    4 ++++
 1 file changed, 4 insertions(+)

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
-- 
1.7.10.4