From ab6ee99f8a6563adc50a8f5e98b358a808fa9d3b Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 6 Sep 2002 15:00:04 +0000 Subject: [PATCH] [project @ 2002-09-06 15:00:04 by simonmar] Disable the whole contents on mingw32. At some point we might be able to provide cut-down signal support, but I'll leave that for later. --- System/Posix/Signals.hsc | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index 6be1644..f4ebb0b 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -12,7 +12,10 @@ -- ----------------------------------------------------------------------------- +#include "config.h" + module System.Posix.Signals ( +#ifndef mingw32_TARGET_OS -- * The Signal type Signal, @@ -76,7 +79,7 @@ module System.Posix.Signals ( -- sigaltstack() -- sighold, sigignore, sigpause, sigrelse, sigset -- siginterrupt - +#endif ) where #include "Signals.h" @@ -87,6 +90,9 @@ import System.IO.Unsafe import System.Posix.Types import GHC.Posix +#ifndef mingw32_TARGET_OS +-- WHOLE FILE... + -- ----------------------------------------------------------------------------- -- Specific signals @@ -390,3 +396,6 @@ foreign import ccall unsafe "sigpending" foreign import ccall unsafe "__hsposix_SIG_BLOCK" c_SIG_BLOCK :: CInt foreign import ccall unsafe "__hsposix_SIG_SETMASK" c_SIG_SETMASK :: CInt foreign import ccall unsafe "__hsposix_SIG_UNBLOCK" c_SIG_UNBLOCK :: CInt + +#endif /* mingw32_TARGET_OS */ + -- 1.7.10.4