aboutsummaryrefslogtreecommitdiffhomepage
path: root/System
diff options
context:
space:
mode:
Diffstat (limited to 'System')
-rw-r--r--System/Posix/Signals/Exts.hsc51
1 files changed, 18 insertions, 33 deletions
diff --git a/System/Posix/Signals/Exts.hsc b/System/Posix/Signals/Exts.hsc
index a889340..95796a2 100644
--- a/System/Posix/Signals/Exts.hsc
+++ b/System/Posix/Signals/Exts.hsc
@@ -1,17 +1,14 @@
+{-# LANGUAGE CPP #-}
#ifdef __GLASGOW_HASKELL__
-#if defined(SIGINFO) || defined(SIGWINCH)
-{-# LANGUAGE Trustworthy #-}
-#else
{-# LANGUAGE Safe #-}
#endif
-#endif
-----------------------------------------------------------------------------
-- |
-- Module : System.Posix.Signals.Exts
-- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE)
---
+--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : non-portable (requires POSIX, includes Linuxisms/BSDisms)
@@ -20,45 +17,33 @@
--
-----------------------------------------------------------------------------
-#include "HsUnix.h"
-
-module System.Posix.Signals.Exts (
- module System.Posix.Signals
+#include "HsUnixConfig.h"
+##include "HsUnixConfig.h"
-#ifdef SIGINFO
- , infoEvent, sigINFO
-#endif
-#ifdef SIGWINCH
- , windowChange, sigWINCH
+#ifdef HAVE_SIGNAL_H
+#include <signal.h>
#endif
+module System.Posix.Signals.Exts (
+ module System.Posix.Signals
+ , sigINFO
+ , sigWINCH
+ , infoEvent
+ , windowChange
) where
import Foreign.C
import System.Posix.Signals
-#ifdef __HUGS__
-# ifdef SIGINFO
-sigINFO = (#const SIGINFO) :: CInt
-# endif
-# ifdef SIGWINCH
-sigWINCH = (#const SIGWINCH) :: CInt
-# endif
-#else /* !HUGS */
-# ifdef SIGINFO
-foreign import ccall unsafe "__hsunix_SIGINFO" sigINFO :: CInt
-# endif
-# ifdef SIGWINCH
-foreign import ccall unsafe "__hsunix_SIGWINCH" sigWINCH :: CInt
-# endif
-#endif /* !HUGS */
+sigINFO :: CInt
+sigINFO = CONST_SIGINFO
+
+sigWINCH :: CInt
+sigWINCH = CONST_SIGWINCH
+
-#ifdef SIGINFO
infoEvent :: Signal
infoEvent = sigINFO
-#endif
-#ifdef SIGWINCH
windowChange :: Signal
windowChange = sigWINCH
-#endif