diff options
| author | David Terei <davidterei@gmail.com> | 2011-05-31 13:44:04 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 20:40:18 -0700 |
| commit | 83d2f75bcde40e24921b19150ba4ecac3fb679c3 (patch) | |
| tree | ab52df8b63b9c3af78dd060fe9a8e2c2569dee5b /compiler | |
| parent | d9965c117a24dfe47c55e2b00d18359c2ef896d3 (diff) | |
| download | haskell-83d2f75bcde40e24921b19150ba4ecac3fb679c3.tar.gz | |
SafeHaskell: Even more fixing to work with safe base
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 2 | ||||
| -rw-r--r-- | compiler/main/InteractiveEval.hs | 3 | ||||
| -rw-r--r-- | compiler/utils/FastString.lhs | 2 | ||||
| -rw-r--r-- | compiler/utils/StringBuffer.lhs | 1 |
4 files changed, 4 insertions, 4 deletions
diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 0b4d03181f..8e2c92cd37 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -66,7 +66,7 @@ import Data.List import qualified Data.Sequence as Seq import Data.Monoid import Data.Sequence (viewl, ViewL(..)) -import Foreign hiding (unsafePerformIO) +import Foreign import System.IO.Unsafe --------------------------------------------- diff --git a/compiler/main/InteractiveEval.hs b/compiler/main/InteractiveEval.hs index bb5fab6b9f..68685b6556 100644 --- a/compiler/main/InteractiveEval.hs +++ b/compiler/main/InteractiveEval.hs @@ -75,13 +75,12 @@ import System.Directory import Data.Dynamic import Data.List (find) import Control.Monad -import Foreign hiding (unsafePerformIO) +import Foreign import Foreign.C import GHC.Exts import Data.Array import Exception import Control.Concurrent --- import Foreign.StablePtr import System.IO import System.IO.Unsafe diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index 55b115c5cf..062d32d15e 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -96,7 +96,7 @@ import FastFunctions import Panic import Util -import Foreign hiding ( unsafePerformIO ) +import Foreign import Foreign.C import GHC.Exts import System.IO diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 5d1bfa6086..1ad4879ef8 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -51,6 +51,7 @@ import FastFunctions import Foreign import System.IO ( hGetBuf, hFileSize,IOMode(ReadMode), hClose , Handle, hTell ) +import System.IO.Unsafe ( unsafePerformIO ) import GHC.Exts |