X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FErr.lhs;h=9a94ce0c17aa7f39a15a9d111a5075da60c6e3de;hb=0bf2fdab482da7a287ef09f18e7656abe62256d0;hp=071e9b61e7441426b21061c1bac8328000bbee4b;hpb=8e9892cd14b7558649fcd9ba0597805eb57505b3;p=ghc-base.git

diff --git a/GHC/Err.lhs b/GHC/Err.lhs
index 071e9b6..9a94ce0 100644
--- a/GHC/Err.lhs
+++ b/GHC/Err.lhs
@@ -33,9 +33,7 @@ module GHC.Err
        ) where
 
 #ifndef __HADDOCK__
-import GHC.Base
-import GHC.IOBase
-import GHC.List     ( span )
+import GHC.Types
 import GHC.Exception
 #endif
 \end{code}
@@ -48,7 +46,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'.