Clean up dead code

Author: Bodigrim

System/Posix/Signals.hsc

@@ -680,18 +680,6 @@ awaitSignal maybe_sigset = do
 foreign import ccall unsafe "sigsuspend"
   c_sigsuspend :: Ptr CSigset -> IO CInt
 
-#if defined(darwin_HOST_OS) && __GLASGOW_HASKELL__ < 706
--- see http://ghc.haskell.org/trac/ghc/ticket/7359#comment:3
--- To be removed when support for GHC 7.4.x is dropped
-foreign import ccall unsafe "__hscore_sigdelset"
-  c_sigdelset   :: Ptr CSigset -> CInt -> IO CInt
-
-foreign import ccall unsafe "__hscore_sigfillset"
-  c_sigfillset  :: Ptr CSigset -> IO CInt
-
-foreign import ccall unsafe "__hscore_sigismember"
-  c_sigismember :: Ptr CSigset -> CInt -> IO CInt
-#else
 foreign import capi unsafe "signal.h sigdelset"
   c_sigdelset   :: Ptr CSigset -> CInt -> IO CInt
 
@@ -700,7 +688,6 @@ foreign import capi unsafe "signal.h sigfillset"
 
 foreign import capi unsafe "signal.h sigismember"
   c_sigismember :: Ptr CSigset -> CInt -> IO CInt
-#endif
 
 foreign import ccall unsafe "sigpending"
   c_sigpending :: Ptr CSigset -> IO CInt

System/Posix/Terminal.hsc

@@ -130,14 +130,8 @@ getSlaveTerminalName (Fd fd) = do
   s <- throwErrnoIfNull "getSlaveTerminalName" (c_ptsname fd)
   peekFilePath s
 
-# if __GLASGOW_HASKELL__ < 800
--- see comment in cbits/HsUnix.c
-foreign import ccall unsafe "__hsunix_ptsname"
-  c_ptsname :: CInt -> IO CString
-# else
 foreign import capi unsafe "HsUnix.h ptsname"
   c_ptsname :: CInt -> IO CString
-# endif
 #else
 getSlaveTerminalName _ =
     ioError (errnoToIOError "getSlaveTerminalName" eNOSYS Nothing Nothing)
@@ -190,20 +184,11 @@ foreign import ccall unsafe "__hsunix_push_module"
   c_push_module :: CInt -> CString -> IO CInt
 
 #ifdef HAVE_PTSNAME
-# if __GLASGOW_HASKELL__ < 800
--- see comment in cbits/HsUnix.c
-foreign import ccall unsafe "__hsunix_grantpt"
-  c_grantpt :: CInt -> IO CInt
-
-foreign import ccall unsafe "__hsunix_unlockpt"
-  c_unlockpt :: CInt -> IO CInt
-# else
 foreign import capi unsafe "HsUnix.h grantpt"
   c_grantpt :: CInt -> IO CInt
 
 foreign import capi unsafe "HsUnix.h unlockpt"
   c_unlockpt :: CInt -> IO CInt
-# endif
 #else
 c_grantpt :: CInt -> IO CInt
 c_grantpt _ = return (fromIntegral 0)

System/Posix/Terminal/ByteString.hsc

@@ -138,14 +138,8 @@ getSlaveTerminalName (Fd fd) = do
   s <- throwErrnoIfNull "getSlaveTerminalName" (c_ptsname fd)
   peekFilePath s
 
-# if __GLASGOW_HASKELL__ < 800
--- see comment in cbits/HsUnix.c
-foreign import ccall unsafe "__hsunix_ptsname"
-  c_ptsname :: CInt -> IO CString
-# else
 foreign import capi unsafe "HsUnix.h ptsname"
   c_ptsname :: CInt -> IO CString
-# endif
 #else
 getSlaveTerminalName _ =
     ioError (errnoToIOError "getSlaveTerminalName" eNOSYS Nothing Nothing)
@@ -198,20 +192,11 @@ foreign import ccall unsafe "__hsunix_push_module"
   c_push_module :: CInt -> CString -> IO CInt
 
 #if HAVE_PTSNAME
-# if __GLASGOW_HASKELL__ < 800
--- see comment in cbits/HsUnix.c
-foreign import ccall unsafe "__hsunix_grantpt"
-  c_grantpt :: CInt -> IO CInt
-
-foreign import ccall unsafe "__hsunix_unlockpt"
-  c_unlockpt :: CInt -> IO CInt
-# else
 foreign import capi unsafe "HsUnix.h grantpt"
   c_grantpt :: CInt -> IO CInt
 
 foreign import capi unsafe "HsUnix.h unlockpt"
   c_unlockpt :: CInt -> IO CInt
-# endif
 #else
 c_grantpt :: CInt -> IO CInt
 c_grantpt _ = return (fromIntegral (0::Int))

cbits/HsUnix.c

@@ -16,16 +16,6 @@ void *__hsunix_rtldNext (void) {return RTLD_NEXT;}
 void *__hsunix_rtldDefault (void) {return RTLD_DEFAULT;}
 #endif
 
-#if HAVE_PTSNAME && (__GLASGOW_HASKELL__ < 800)
-// On Linux (and others), <stdlib.h> needs to be included while
-// `_XOPEN_SOURCE` is already defined. However, GHCs before GHC 8.0
-// didn't do that yet for CApiFFI, so we need this workaround here.
-
-char *__hsunix_ptsname(int fd)   { return ptsname(fd);  }
-int   __hsunix_grantpt(int fd)   { return grantpt(fd);  }
-int   __hsunix_unlockpt(int fd)  { return unlockpt(fd); }
-#endif
-
 // push a SVR4 STREAMS module; do nothing if STREAMS not available
 int __hsunix_push_module(int fd, const char *module)
 {