Move the Char datatype into ghc-prim

[ghc-base.git] / GHC / Err.lhs

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