diff options
author | Ian Lynagh <ian@well-typed.com> | 2012-11-30 22:45:55 +0000 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2012-11-30 22:45:55 +0000 |
commit | e12ccd7203ac3f0133365a9d3d802195e534fd8e (patch) | |
tree | 621cecc877925383670ea20bfa45f7c140aafa38 /System/Posix/Terminal.hsc | |
parent | 3db0f40d3b3d27246599845b9f0f09ae0a88cd02 (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.hsc | 21 |
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 |