diff options
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 |