From: simonmar <unknown>
Date: Fri, 6 Sep 2002 15:00:04 +0000 (+0000)
Subject: [project @ 2002-09-06 15:00:04 by simonmar]
X-Git-Tag: nhc98-1-18-release~869
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ab6ee99f8a6563adc50a8f5e98b358a808fa9d3b;p=ghc-base.git

[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
--- 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 */
+