avoid Foreign.unsafePerformIO

compiler/ghci/ByteCodeFFI.lhs

@@ -9,7 +9,7 @@ module ByteCodeFFI ( moan64 ) where
 
 import Outputable
 import System.IO
-import Foreign
+import System.IO.Unsafe
 
 moan64 :: String -> SDoc -> a
 moan64 msg pp_rep

compiler/ghci/RtClosureInspect.hs

@@ -75,8 +75,8 @@ import Data.List
 import qualified Data.Sequence as Seq
 import Data.Monoid
 import Data.Sequence (viewl, ViewL(..))
-import Foreign
--- import System.IO.Unsafe
+import Foreign hiding (unsafePerformIO)
+import System.IO.Unsafe
 
 ---------------------------------------------
 -- * A representation of semi evaluated Terms

compiler/main/InteractiveEval.hs

@@ -78,7 +78,7 @@ import System.Directory
 import Data.Dynamic
 import Data.List (find, partition)
 import Control.Monad
-import Foreign
+import Foreign hiding (unsafePerformIO)
 import Foreign.C
 import GHC.Exts
 import Data.Array
@@ -87,6 +87,7 @@ import Control.Concurrent
 import Data.List (sortBy)
 -- import Foreign.StablePtr
 import System.IO
+import System.IO.Unsafe
 
 -- -----------------------------------------------------------------------------
 -- running a statement interactively

compiler/utils/FastString.lhs

@@ -95,7 +95,7 @@ import FastFunctions
 import Panic
 import Util
 
-import Foreign
+import Foreign hiding   ( unsafePerformIO )
 import Foreign.C
 import GHC.Exts
 import System.IO