[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.

diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index 6be1644..f4ebb0b 100644 (file)
--- 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 */
+