Commit 35f53b0e authored by dterei's avatar dterei

SafeHaskell: Fix imports of base when base unsafe

parent b8281d80
...@@ -96,7 +96,6 @@ import FastFunctions ...@@ -96,7 +96,6 @@ import FastFunctions
import Panic import Panic
import Util import Util
import Foreign
import Foreign.C import Foreign.C
import GHC.Exts import GHC.Exts
import System.IO import System.IO
...@@ -109,8 +108,10 @@ import Data.Char ( ord ) ...@@ -109,8 +108,10 @@ import Data.Char ( ord )
import GhcIO ( IO(..) ) import GhcIO ( IO(..) )
#if __GLASGOW_HASKELL__ >= 701 #if __GLASGOW_HASKELL__ >= 701
import Foreign.Safe
import GHC.Ptr.Unsafe ( Ptr(..) ) import GHC.Ptr.Unsafe ( Ptr(..) )
#else #else
import Foreign hiding ( unsafePerformIO )
import GHC.Ptr ( Ptr(..) ) import GHC.Ptr ( Ptr(..) )
#endif #endif
......
...@@ -7,14 +7,18 @@ ...@@ -7,14 +7,18 @@
-- --
module GhcIO ( module GhcIO (
#if __GLASGOW_HASKELL__ >= 701 #if __GLASGOW_HASKELL__ >= 701
module GHC.IO.Unsafe, module GHC.IO.Safe,
#endif module GHC.IO.Unsafe
#else
module GHC.IO module GHC.IO
#endif
) where ) where
#if __GLASGOW_HASKELL__ >= 701 #if __GLASGOW_HASKELL__ >= 701
import GHC.IO.Safe
import GHC.IO.Unsafe import GHC.IO.Unsafe
#else
import GHC.IO
#endif #endif
import GHC.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