SafeHaskell: Fix validation errors when Safe base used.
authorDavid Terei <davidterei@gmail.com>
Thu, 2 Jun 2011 01:04:27 +0000 (18:04 -0700)
committerDavid Terei <davidterei@gmail.com>
Sat, 18 Jun 2011 03:40:33 +0000 (20:40 -0700)
compiler/iface/TcIface.lhs-boot
compiler/utils/FastString.lhs
compiler/utils/GhcIO.hs
compiler/utils/StringBuffer.lhs

index d78253e..a9684a6 100644 (file)
@@ -7,7 +7,7 @@ import TcRnTypes   ( IfL )
 import InstEnv     ( Instance )
 import FamInstEnv  ( FamInst )
 import CoreSyn     ( CoreRule )
-import HscTypes    ( TypeEnv, VectInfo, IfaceVectInfo, IfaceTrustInfo )
+import HscTypes    ( TypeEnv, VectInfo, IfaceVectInfo )
 import Module      ( Module )
 import Annotations ( Annotation )
 
index 062d32d..89ab758 100644 (file)
@@ -108,7 +108,12 @@ import Data.Char        ( ord )
 
 import GhcIO ( IO(..) )
 
+#if __GLASGOW_HASKELL__ >= 701
+import GHC.Ptr.Unsafe   ( Ptr(..) )
+#else
 import GHC.Ptr          ( Ptr(..) )
+#endif
+
 #if defined(__GLASGOW_HASKELL__)
 import GHC.Base         ( unpackCString# )
 #endif
index 9d6734e..82869c2 100644 (file)
@@ -1,6 +1,10 @@
+
 -- | A simple version compatability wrapper around GHC.IO.
+--
 -- This module exports both the safe and Unsafe version of GHC.IO
--- after that SafeHaskell change over occured.
+-- taking care of the SafeHaskell changeover which spit up the
+-- old GHC.IO module.
+--
 module GhcIO (
 #if __GLASGOW_HASKELL__ >= 701
         module GHC.IO.Unsafe,
index 1ad4879..326cb1c 100644 (file)
@@ -48,14 +48,17 @@ import FastString hiding ( buf )
 import FastTypes
 import FastFunctions
 
-import Foreign
 import System.IO                ( hGetBuf, hFileSize,IOMode(ReadMode), hClose
-                                , Handle, hTell )
+                                , Handle, hTell, openBinaryFile )
 import System.IO.Unsafe         ( unsafePerformIO )
 
 import GHC.Exts
 
-import System.IO                ( openBinaryFile )
+#if __GLASGOW_HASKELL__ >= 701
+import Foreign
+#else
+import Foreign hiding           ( unsafePerformIO )
+#endif
 
 -- -----------------------------------------------------------------------------
 -- The StringBuffer type