) where
#ifndef __HADDOCK__
-import GHC.Base
-import GHC.IOBase
-import GHC.List ( span )
+import GHC.Types
import GHC.Exception
#endif
\end{code}
\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'.