Commit 68e20b58 authored by Ross Paterson's avatar Ross Paterson
Browse files

avoid Foreign.unsafePerformIO

parent 29cc62cc
......@@ -75,7 +75,7 @@ module GHC.Conc.Sync
, sharedCAF
) where
import Foreign
import Foreign hiding (unsafePerformIO)
import Foreign.C
#ifdef mingw32_HOST_OS
......
......@@ -30,7 +30,7 @@ module GHC.IO.Encoding.Iconv (
#if !defined(mingw32_HOST_OS)
import Foreign
import Foreign hiding (unsafePerformIO)
import Foreign.C
import Data.Maybe
import GHC.Base
......@@ -39,6 +39,7 @@ import GHC.IO.Encoding.Types
import GHC.Num
import GHC.Show
import GHC.Real
import System.IO.Unsafe (unsafePerformIO)
import System.Posix.Internals
c_DEBUG_DUMP :: Bool
......
......@@ -70,7 +70,7 @@ import GHC.MVar
import Data.Typeable
import Control.Monad
import Data.Maybe
import Foreign
import Foreign hiding (unsafePerformIO)
-- import System.IO.Error
import System.Posix.Internals hiding (FD)
......
......@@ -31,8 +31,9 @@ import CPUTime ( getCPUTime, cpuTimePrecision )
#endif
#ifdef __GLASGOW_HASKELL__
import Foreign
import Foreign hiding (unsafePerformIO)
import Foreign.C
import System.IO.Unsafe (unsafePerformIO)
#include "HsBaseConfig.h"
......
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