X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FErr.lhs;h=90142f400ff76b775eb2f5550cf26380adbda4c9;hb=39c721869eb55206532179f926ec947ef12b1842;hp=03ec56e0b6f0282afcf314ff7b069b2023978b7e;hpb=9c0f2d82e91d3e6c3179db2449701be77d80f866;p=ghc-base.git

diff --git a/GHC/Err.lhs b/GHC/Err.lhs
index 03ec56e..90142f4 100644
--- a/GHC/Err.lhs
+++ b/GHC/Err.lhs
@@ -1,6 +1,7 @@
 \begin{code}
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Err
@@ -33,8 +34,7 @@ module GHC.Err
        ) where
 
 #ifndef __HADDOCK__
-import GHC.Base
-import GHC.IOBase
+import GHC.Types
 import GHC.Exception
 #endif
 \end{code}
@@ -47,7 +47,7 @@ import GHC.Exception
 
 \begin{code}
 -- | 'error' stops execution and displays an error message.
-error :: String -> a
+error :: [Char] -> a
 error s = throw (ErrorCall s)
 
 -- | A special case of 'error'.