diff options
| -rw-r--r-- | compiler/ghci/Linker.hs | 6 | ||||
| -rw-r--r-- | compiler/main/DynFlags.hs | 7 | ||||
| -rw-r--r-- | compiler/main/StaticFlags.hs | 7 |
3 files changed, 3 insertions, 17 deletions
diff --git a/compiler/ghci/Linker.hs b/compiler/ghci/Linker.hs index 6a0483ce1b..b50edca938 100644 --- a/compiler/ghci/Linker.hs +++ b/compiler/ghci/Linker.hs @@ -62,11 +62,7 @@ import System.Directory import Exception -#if __GLASGOW_HASKELL__ >= 709 -import Foreign -#else -import Foreign.Safe -#endif +import Foreign (Ptr) -- needed for 2nd stage {- ********************************************************************** diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 8d50e01905..c8f6e1ed43 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -214,12 +214,7 @@ import qualified Data.IntSet as IntSet import GHC.Foreign (withCString, peekCString) import qualified GHC.LanguageExtensions as LangExt -#if __GLASGOW_HASKELL__ >= 709 -import Foreign -#else -import Foreign.Safe -#endif - +import Foreign (Ptr) -- needed for 2nd stage -- Note [Updating flag description in the User's Guide] -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index af8f4e64d4..b5be9ba1ac 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -48,12 +48,7 @@ import Control.Monad import Data.IORef import System.IO.Unsafe ( unsafePerformIO ) -#if __GLASGOW_HASKELL__ >= 709 -import Foreign -#else -import Foreign.Safe -#endif - +import Foreign (Ptr) -- needed for 2nd stage ----------------------------------------------------------------------------- -- Static flags |