diff options
author | 2012-11-30 22:45:55 +0000 | |
---|---|---|
committer | 2012-11-30 22:45:55 +0000 | |
commit | e12ccd7203ac3f0133365a9d3d802195e534fd8e (patch) | |
tree | 621cecc877925383670ea20bfa45f7c140aafa38 /System/Posix/DynamicLinker.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/DynamicLinker.hsc')
-rw-r--r-- | System/Posix/DynamicLinker.hsc | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/System/Posix/DynamicLinker.hsc b/System/Posix/DynamicLinker.hsc index 7683fc3..5398f03 100644 --- a/System/Posix/DynamicLinker.hsc +++ b/System/Posix/DynamicLinker.hsc @@ -1,4 +1,4 @@ -#if __GLASGOW_HASKELL__ >= 701 +#ifdef __GLASGOW_HASKELL__ {-# LANGUAGE Trustworthy #-} #endif ----------------------------------------------------------------------------- @@ -56,12 +56,7 @@ import System.Posix.DynamicLinker.Prim import Control.Exception ( bracket ) import Control.Monad ( liftM ) import Foreign -#if __GLASGOW_HASKELL__ > 611 import System.Posix.Internals ( withFilePath ) -#else -withFilePath :: FilePath -> (CString -> IO a) -> IO a -withFilePath = withCString -#endif dlopen :: FilePath -> [RTLDFlags] -> IO DL dlopen path flags = do |