Commit f10947d7 authored by Ross Paterson's avatar Ross Paterson
Browse files

avoid Foreign.unsafePerformIO

parent b94d8b0b
...@@ -9,7 +9,7 @@ module ByteCodeFFI ( moan64 ) where ...@@ -9,7 +9,7 @@ module ByteCodeFFI ( moan64 ) where
import Outputable import Outputable
import System.IO import System.IO
import Foreign import System.IO.Unsafe
moan64 :: String -> SDoc -> a moan64 :: String -> SDoc -> a
moan64 msg pp_rep moan64 msg pp_rep
......
...@@ -75,8 +75,8 @@ import Data.List ...@@ -75,8 +75,8 @@ import Data.List
import qualified Data.Sequence as Seq import qualified Data.Sequence as Seq
import Data.Monoid import Data.Monoid
import Data.Sequence (viewl, ViewL(..)) import Data.Sequence (viewl, ViewL(..))
import Foreign import Foreign hiding (unsafePerformIO)
-- import System.IO.Unsafe import System.IO.Unsafe
--------------------------------------------- ---------------------------------------------
-- * A representation of semi evaluated Terms -- * A representation of semi evaluated Terms
......
...@@ -78,7 +78,7 @@ import System.Directory ...@@ -78,7 +78,7 @@ import System.Directory
import Data.Dynamic import Data.Dynamic
import Data.List (find, partition) import Data.List (find, partition)
import Control.Monad import Control.Monad
import Foreign import Foreign hiding (unsafePerformIO)
import Foreign.C import Foreign.C
import GHC.Exts import GHC.Exts
import Data.Array import Data.Array
...@@ -87,6 +87,7 @@ import Control.Concurrent ...@@ -87,6 +87,7 @@ import Control.Concurrent
import Data.List (sortBy) import Data.List (sortBy)
-- import Foreign.StablePtr -- import Foreign.StablePtr
import System.IO import System.IO
import System.IO.Unsafe
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- running a statement interactively -- running a statement interactively
......
...@@ -95,7 +95,7 @@ import FastFunctions ...@@ -95,7 +95,7 @@ import FastFunctions
import Panic import Panic
import Util import Util
import Foreign import Foreign hiding ( unsafePerformIO )
import Foreign.C import Foreign.C
import GHC.Exts import GHC.Exts
import System.IO import System.IO
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment