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/Temp.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/Temp.hsc')
-rw-r--r-- | System/Posix/Temp.hsc | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/System/Posix/Temp.hsc b/System/Posix/Temp.hsc index e960ea3..5b5cbcc 100644 --- a/System/Posix/Temp.hsc +++ b/System/Posix/Temp.hsc @@ -1,5 +1,5 @@ {-# LANGUAGE ForeignFunctionInterface #-} -#if __GLASGOW_HASKELL__ >= 701 +#ifdef __GLASGOW_HASKELL__ {-# LANGUAGE Trustworthy #-} #endif ----------------------------------------------------------------------------- @@ -30,24 +30,8 @@ import System.Posix.Directory (createDirectory) #endif import System.Posix.IO import System.Posix.Types - -#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 - -#else -withFilePath :: FilePath -> (CString -> IO a) -> IO a -withFilePath = withCString - -peekFilePath :: CString -> IO FilePath -peekFilePath = peekCString -#endif - #if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) foreign import ccall unsafe "HsUnix.h __hscore_mkstemp" c_mkstemp :: CString -> IO CInt |