From 00028fd62f34b69a727c35aa880d2d54b89a00e8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 20 Feb 2009 17:30:41 +0000 Subject: [PATCH] ifdef out the definition of setCloseOnExec on Windows; fixes the build --- System/Posix/Internals.hs | 2 ++ 1 file changed, 2 insertions(+) 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 -- 1.7.10.4