Commit f10947d7 authored by Ross Paterson's avatar Ross Paterson

avoid Foreign.unsafePerformIO

parent b94d8b0b
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
Markdown is supported
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