From: Ian Lynagh <igloo@earth.li>
Date: Fri, 20 Feb 2009 17:30:41 +0000 (+0000)
Subject: ifdef out the definition of setCloseOnExec on Windows; fixes the build
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=00028fd62f34b69a727c35aa880d2d54b89a00e8;p=ghc-base.git

ifdef out the definition of setCloseOnExec on Windows; fixes the build
---

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 276f841..8711a2e 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -339,11 +339,13 @@ setNonBlockingFD _ = return ()
 -- -----------------------------------------------------------------------------
 -- Set close-on-exec for a file descriptor
 
+#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 setCloseOnExec :: FD -> IO ()
 setCloseOnExec fd = do
   throwErrnoIfMinus1 "setCloseOnExec" $
     c_fcntl_write fd const_f_setfd const_fd_cloexec
   return ()
+#endif
 
 -- -----------------------------------------------------------------------------
 -- foreign imports