Drop redundant __GLASGOW_HASKELL__ conditionals for GHC>=7.4
authorHerbert Valerio Riedel <hvr@gnu.org>
Sat, 30 Jan 2016 22:14:23 +0000 (23:14 +0100)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sat, 30 Jan 2016 23:19:53 +0000 (00:19 +0100)
39 files changed:
System/Posix.hs
System/Posix/ByteString.hs
System/Posix/ByteString/FilePath.hsc
System/Posix/Directory.hsc
System/Posix/Directory/ByteString.hsc
System/Posix/Directory/Common.hsc
System/Posix/DynamicLinker.hsc
System/Posix/DynamicLinker/ByteString.hsc
System/Posix/DynamicLinker/Common.hsc
System/Posix/DynamicLinker/Module.hsc
System/Posix/DynamicLinker/Module/ByteString.hsc
System/Posix/DynamicLinker/Prim.hsc
System/Posix/Env.hsc
System/Posix/Env/ByteString.hsc
System/Posix/Error.hs
System/Posix/Fcntl.hsc
System/Posix/Files.hsc
System/Posix/Files/ByteString.hsc
System/Posix/Files/Common.hsc
System/Posix/IO.hsc
System/Posix/IO/ByteString.hsc
System/Posix/IO/Common.hsc
System/Posix/Process.hsc
System/Posix/Process/ByteString.hsc
System/Posix/Process/Common.hsc
System/Posix/Process/Internals.hs
System/Posix/Resource.hsc
System/Posix/Semaphore.hsc
System/Posix/SharedMem.hsc
System/Posix/Signals.hsc
System/Posix/Signals/Exts.hsc
System/Posix/Temp.hsc
System/Posix/Temp/ByteString.hsc
System/Posix/Terminal.hsc
System/Posix/Terminal/ByteString.hsc
System/Posix/Terminal/Common.hsc
System/Posix/Time.hs
System/Posix/Unistd.hsc
System/Posix/User.hsc

index 09bdde6..b5b221a 100644 (file)
@@ -1,7 +1,5 @@
 {-# LANGUAGE CPP #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Safe #-}
-#endif
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix
index 793020c..7f0b266 100644 (file)
@@ -1,7 +1,5 @@
 {-# LANGUAGE CPP #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Safe #-}
-#endif
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix.ByteString
index 5e3692a..b6768fc 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 
index 7a3d52a..f1caaaf 100644 (file)
@@ -1,8 +1,6 @@
 {-# LANGUAGE CApiFFI #-}
 {-# LANGUAGE NondecreasingIndentation #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
-#endif
 
 -----------------------------------------------------------------------------
 -- |
index b67ad46..3f96831 100644 (file)
@@ -1,8 +1,6 @@
 {-# LANGUAGE CApiFFI #-}
 {-# LANGUAGE NondecreasingIndentation #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
-#endif
 
 -----------------------------------------------------------------------------
 -- |
index 9fb5ac4..aba20af 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 
index a2b7336..656054c 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index 2111aa2..1693fed 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 
index 8a44d95..32bfccc 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index d971fa7..eb4938b 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index d5973a8..3a902bc 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 
index e737918..67d4aa8 100644 (file)
@@ -1,9 +1,8 @@
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# OPTIONS_GHC -fno-warn-trustworthy-safe #-}
 #endif
-#endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix.DynamicLinker.Prim
index 95b7bc8..6d7f61b 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index 9217525..0bbcfd8 100644 (file)
@@ -1,9 +1,7 @@
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# OPTIONS_GHC -fno-warn-trustworthy-safe #-}
 #endif
-#endif
 
 -----------------------------------------------------------------------------
 -- |
index d3b10a7..9d2ac70 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE CPP #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index 749826f..2d8ef12 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE CApiFFI #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index d0ff4bf..7c637cc 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 {-# LANGUAGE CApiFFI #-}
index 12bd39a..872817e 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 {-# LANGUAGE CApiFFI #-}
index 963008f..a1a4278 100644 (file)
@@ -1,6 +1,5 @@
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
-#endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix.Files.Common
index 41e0b3b..b3f4c84 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index b8bc87a..d387f0e 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index abcd19b..8f8ddb9 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE NondecreasingIndentation, RecordWildCards #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 
@@ -70,14 +70,12 @@ import qualified System.Posix.Internals as Base
 import Foreign
 import Foreign.C
 
-#ifdef __GLASGOW_HASKELL__
 import GHC.IO.Handle.Internals
 import GHC.IO.Handle.Types
 import qualified GHC.IO.FD as FD
 import qualified GHC.IO.Handle.FD as FD
 import GHC.IO.Exception
 import Data.Typeable (cast)
-#endif
 
 #include "HsUnix.h"
 
@@ -206,8 +204,8 @@ handleToFd :: Handle -> IO Fd
 -- | Converts an 'Fd' into a 'Handle' that can be used with the
 -- standard Haskell IO library (see "System.IO").
 fdToHandle :: Fd -> IO Handle
+fdToHandle fd = FD.fdToHandle (fromIntegral fd)
 
-#ifdef __GLASGOW_HASKELL__
 handleToFd h@(FileHandle _ m) = do
   withHandle' "handleToFd" h m $ handleToFd' h
 handleToFd h@(DuplexHandle _ r w) = do
@@ -231,8 +229,6 @@ handleToFd' h h_@Handle__{haType=_,..} = do
      FD.release fd
      return (Handle__{haType=ClosedHandle,..}, Fd (FD.fdFD fd))
 
-fdToHandle fd = FD.fdToHandle (fromIntegral fd)
-#endif
 
 -- -----------------------------------------------------------------------------
 -- Fd options
index 72da1c6..afdb164 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
@@ -22,10 +22,8 @@ module System.Posix.Process (
     -- * Processes
 
     -- ** Forking and executing
-#ifdef __GLASGOW_HASKELL__
     forkProcess,
     forkProcessWithUnmask,
-#endif
     executeFile,
 
     -- ** Exiting
index 64fc71e..39da5ba 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 
@@ -23,10 +23,8 @@ module System.Posix.Process.ByteString (
     -- * Processes
 
     -- ** Forking and executing
-#ifdef __GLASGOW_HASKELL__
     forkProcess,
     forkProcessWithUnmask,
-#endif
     executeFile,
 
     -- ** Exiting
index d0d2b09..59212e4 100644 (file)
@@ -1,8 +1,7 @@
 {-# LANGUAGE CApiFFI #-}
 {-# LANGUAGE InterruptibleFFI, RankNTypes #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
-#endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix.Process.Common
@@ -22,10 +21,8 @@ module System.Posix.Process.Common (
     -- * Processes
 
     -- ** Forking and executing
-#ifdef __GLASGOW_HASKELL__
     forkProcess,
     forkProcessWithUnmask,
-#endif
 
     -- ** Exiting
     exitImmediately,
@@ -82,11 +79,9 @@ import System.Posix.Process.Internals
 import System.Posix.Types
 import Control.Monad
 
-#ifdef __GLASGOW_HASKELL__
 import Control.Exception.Base ( bracket, getMaskingState, MaskingState(..) ) -- used by forkProcess
 import GHC.TopHandler   ( runIO )
 import GHC.IO ( unsafeUnmask, uninterruptibleMask_ )
-#endif
 
 -- -----------------------------------------------------------------------------
 -- Process environment
@@ -271,7 +266,6 @@ foreign import ccall unsafe "setpriority"
 -- -----------------------------------------------------------------------------
 -- Forking, execution
 
-#ifdef __GLASGOW_HASKELL__
 {- | 'forkProcess' corresponds to the POSIX @fork@ system call.
 The 'IO' action passed as an argument is executed in the child process; no other
 threads will be copied to the child process.
@@ -311,8 +305,6 @@ foreign import ccall "forkProcess" forkProcessPrim :: StablePtr (IO ()) -> IO CP
 forkProcessWithUnmask :: ((forall a . IO a -> IO a) -> IO ()) -> IO ProcessID
 forkProcessWithUnmask action = forkProcess (action unsafeUnmask)
 
-#endif /* __GLASGOW_HASKELL__ */
-
 -- -----------------------------------------------------------------------------
 -- Waiting for process termination
 
index 970bc9f..fd0e68d 100644 (file)
@@ -1,8 +1,6 @@
 {-# LANGUAGE CApiFFI #-}
 {-# LANGUAGE CPP #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
-#endif
 
 module System.Posix.Process.Internals (
        pPrPr_disableITimers, c_execvpe,
index 280c25f..3418ecf 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index 02959ae..12db924 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index ff43b97..a6326a7 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index e8fc1c5..222911a 100644 (file)
@@ -1,8 +1,6 @@
 {-# LANGUAGE CApiFFI, CPP, DeriveDataTypeable, NondecreasingIndentation #-}
 {-# OPTIONS_GHC -fno-cse #-} -- global variables
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
-#endif
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix.Signals
@@ -66,12 +64,10 @@ module System.Posix.Signals (
   signalProcess,
   signalProcessGroup,
 
-#ifdef __GLASGOW_HASKELL__
   -- * Handling signals
   Handler(Default,Ignore,Catch,CatchOnce,CatchInfo,CatchInfoOnce),
   SignalInfo(..), SignalSpecificInfo(..),
   installHandler,
-#endif
 
   -- * Signal sets
   SignalSet,
@@ -88,10 +84,8 @@ module System.Posix.Signals (
   getPendingSignals,
   awaitSignal,
 
-#ifdef __GLASGOW_HASKELL__
   -- * The @NOCLDSTOP@ flag
   setStoppedChildFlag, queryStoppedChildFlag,
-#endif
 
   -- MISSING FUNCTIONALITY:
   -- sigaction(), (inc. the sigaction structure + flags etc.)
@@ -114,11 +108,9 @@ import System.Posix.Process
 import System.Posix.Process.Internals
 import Data.Dynamic
 
-#ifdef __GLASGOW_HASKELL__
 ##include "rts/Signals.h"
 
 import GHC.Conc hiding (Signal)
-#endif
 
 -- -----------------------------------------------------------------------------
 -- Specific signals
@@ -298,7 +290,7 @@ foreign import ccall unsafe "killpg"
 raiseSignal :: Signal -> IO ()
 raiseSignal sig = throwErrnoIfMinus1_ "raiseSignal" (c_raise sig)
 
-#if defined(__GLASGOW_HASKELL__) && (defined(openbsd_HOST_OS) || defined(freebsd_HOST_OS) || defined(dragonfly_HOST_OS) || defined(netbsd_HOST_OS) || defined(darwin_HOST_OS))
+#if (defined(openbsd_HOST_OS) || defined(freebsd_HOST_OS) || defined(dragonfly_HOST_OS) || defined(netbsd_HOST_OS) || defined(darwin_HOST_OS))
 foreign import ccall unsafe "genericRaise"
   c_raise :: CInt -> IO CInt
 #else
@@ -306,9 +298,8 @@ foreign import ccall unsafe "raise"
   c_raise :: CInt -> IO CInt
 #endif
 
-#ifdef __GLASGOW_HASKELL__
-type Signal = CInt
 
+type Signal = CInt
 
 -- | The actions to perform when a signal is received.
 data Handler = Default
@@ -448,7 +439,6 @@ unmarshalSigInfo fp = do
         siginfoSpecific = extra }
 
 #endif /* !__PARALLEL_HASKELL__ */
-#endif /* __GLASGOW_HASKELL__ */
 
 -- -----------------------------------------------------------------------------
 -- Alarms
@@ -463,7 +453,6 @@ scheduleAlarm secs = do
 foreign import ccall unsafe "alarm"
   c_alarm :: CUInt -> IO CUInt
 
-#ifdef __GLASGOW_HASKELL__
 -- -----------------------------------------------------------------------------
 -- The NOCLDSTOP flag
 
@@ -482,7 +471,6 @@ queryStoppedChildFlag :: IO Bool
 queryStoppedChildFlag = do
     rc <- peek nocldstop
     return (rc == (0::Int))
-#endif /* __GLASGOW_HASKELL__ */
 
 -- -----------------------------------------------------------------------------
 -- Manipulating signal sets
index 95796a2..3634277 100644 (file)
@@ -1,7 +1,5 @@
 {-# LANGUAGE CPP #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Safe #-}
-#endif
 
 -----------------------------------------------------------------------------
 -- |
index 2d7ca52..473364c 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
@@ -33,10 +33,8 @@ import System.Posix.IO
 import System.Posix.Types
 import System.Posix.Internals (withFilePath, peekFilePath)
 
-#if defined(__GLASGOW_HASKELL__)
 foreign import ccall unsafe "HsUnix.h __hscore_mkstemp"
   c_mkstemp :: CString -> IO CInt
-#endif
 
 -- | Make a unique filename and open it for reading\/writing. The returned
 -- 'FilePath' is the (possibly relative) path of the created file, which is
@@ -48,17 +46,11 @@ foreign import ccall unsafe "HsUnix.h __hscore_mkstemp"
 mkstemp :: String -> IO (FilePath, Handle)
 mkstemp template' = do
   let template = template' ++ "XXXXXX"
-#if defined(__GLASGOW_HASKELL__)
   withFilePath template $ \ ptr -> do
     fd <- throwErrnoIfMinus1 "mkstemp" (c_mkstemp ptr)
     name <- peekFilePath ptr
     h <- fdToHandle (Fd fd)
     return (name, h)
-#else
-  name <- mktemp template
-  h <- openFile name ReadWriteMode
-  return (name, h)
-#endif
 
 #if HAVE_MKSTEMPS
 foreign import ccall unsafe "HsUnix.h __hscore_mkstemps"
@@ -114,7 +106,7 @@ mkdtemp template' = do
   return name
 #endif
 
-#if !defined(__GLASGOW_HASKELL__) || !HAVE_MKDTEMP
+#if !HAVE_MKDTEMP
 
 foreign import ccall unsafe "mktemp"
   c_mktemp :: CString -> IO CString
index 84ad49e..67442fc 100644 (file)
@@ -1,6 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
@@ -38,10 +38,8 @@ import System.Posix.Directory (createDirectory)
 import System.Posix.IO
 import System.Posix.Types
 
-#if defined(__GLASGOW_HASKELL__)
 foreign import ccall unsafe "HsUnix.h __hscore_mkstemp"
   c_mkstemp :: CString -> IO CInt
-#endif
 
 -- | Make a unique filename and open it for reading\/writing. The returned
 -- 'RawFilePath' is the (possibly relative) path of the created file, which is
@@ -53,17 +51,11 @@ foreign import ccall unsafe "HsUnix.h __hscore_mkstemp"
 mkstemp :: ByteString -> IO (RawFilePath, Handle)
 mkstemp template' = do
   let template = template' `B.append` (BC.pack "XXXXXX")
-#if defined(__GLASGOW_HASKELL__)
   withFilePath template $ \ ptr -> do
     fd <- throwErrnoIfMinus1 "mkstemp" (c_mkstemp ptr)
     name <- peekFilePath ptr
     h <- fdToHandle (Fd fd)
     return (name, h)
-#else
-  name <- mktemp template
-  h <- openFile (BC.unpack name) ReadWriteMode
-  return (name, h)
-#endif
 
 #if HAVE_MKSTEMPS
 foreign import ccall unsafe "HsUnix.h __hscore_mkstemps"
@@ -114,7 +106,7 @@ mkdtemp template' = do
   return name
 #endif
 
-#if !defined(__GLASGOW_HASKELL__) || !HAVE_MKDTEMP
+#if !HAVE_MKDTEMP
 
 foreign import ccall unsafe "mktemp"
   c_mktemp :: CString -> IO CString
index 88bd93f..c1b3ff8 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE CApiFFI #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index 3c7abfb..d98a9c0 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE CApiFFI #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index 5d81ec5..573df16 100644 (file)
@@ -1,7 +1,6 @@
 {-# LANGUAGE CApiFFI #-}
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy #-}
-#endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix.Terminal.Common
index 7a2232f..b6ed885 100644 (file)
@@ -2,7 +2,7 @@
 {-# LANGUAGE CPP #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
index 7f79113..84bd472 100644 (file)
@@ -2,7 +2,7 @@
 {-# LANGUAGE NondecreasingIndentation #-}
 #if __GLASGOW_HASKELL__ >= 709
 {-# LANGUAGE Safe #-}
-#elif __GLASGOW_HASKELL__ >= 703
+#else
 {-# LANGUAGE Trustworthy #-}
 #endif
 -----------------------------------------------------------------------------
@@ -118,9 +118,7 @@ sleep :: Int -> IO Int
 sleep 0 = return 0
 sleep secs = do r <- c_sleep (fromIntegral secs); return (fromIntegral r)
 
-#ifdef __GLASGOW_HASKELL__
 {-# WARNING sleep "This function has several shortcomings (see documentation). Please consider using Control.Concurrent.threadDelay instead." #-}
-#endif
 
 foreign import ccall safe "sleep"
   c_sleep :: CUInt -> IO CUInt
index 3e11389..01a417d 100644 (file)
@@ -1,6 +1,4 @@
-#ifdef __GLASGOW_HASKELL__
 {-# LANGUAGE Trustworthy, CApiFFI #-}
-#endif
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Posix.User