aboutsummaryrefslogtreecommitdiffhomepage
path: root/System/Posix/Terminal.hsc
diff options
context:
space:
mode:
authorGravatar Ian Lynagh <ian@well-typed.com>2012-11-30 22:45:55 +0000
committerGravatar Ian Lynagh <ian@well-typed.com>2012-11-30 22:45:55 +0000
commite12ccd7203ac3f0133365a9d3d802195e534fd8e (patch)
tree621cecc877925383670ea20bfa45f7c140aafa38 /System/Posix/Terminal.hsc
parent3db0f40d3b3d27246599845b9f0f09ae0a88cd02 (diff)
Bump base lower version to 4.5 (the version GHC 7.4.1 came with)
and remove code to support older versions
Diffstat (limited to 'System/Posix/Terminal.hsc')
-rw-r--r--System/Posix/Terminal.hsc21
1 files changed, 1 insertions, 20 deletions
diff --git a/System/Posix/Terminal.hsc b/System/Posix/Terminal.hsc
index b00c6d6..b5519c6 100644
--- a/System/Posix/Terminal.hsc
+++ b/System/Posix/Terminal.hsc
@@ -1,6 +1,6 @@
{-# LANGUAGE ForeignFunctionInterface #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-#if __GLASGOW_HASKELL__ >= 701
+#ifdef __GLASGOW_HASKELL__
{-# LANGUAGE Trustworthy #-}
#endif
-----------------------------------------------------------------------------
@@ -79,26 +79,7 @@ import System.Posix.Terminal.Common
import System.Posix.Types
import System.Posix.IO
-#if __GLASGOW_HASKELL__ > 700
import System.Posix.Internals (withFilePath, peekFilePath)
-#elif __GLASGOW_HASKELL__ > 611
-import System.Posix.Internals (withFilePath)
-
-peekFilePath :: CString -> IO FilePath
-peekFilePath = peekCString
-
-peekFilePathLen :: CStringLen -> IO FilePath
-peekFilePathLen = peekCStringLen
-#else
-withFilePath :: FilePath -> (CString -> IO a) -> IO a
-withFilePath = withCString
-
-peekFilePath :: CString -> IO FilePath
-peekFilePath = peekCString
-
-peekFilePathLen :: CStringLen -> IO FilePath
-peekFilePathLen = peekCStringLen
-#endif
-- | @getTerminalName fd@ calls @ttyname@ to obtain a name associated
-- with the terminal for @Fd@ @fd@. If @fd@ is associated