projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove trailing whitespace
[ghc-base.git]
/
GHC
/
Err.lhs
diff --git
a/GHC/Err.lhs
b/GHC/Err.lhs
index
03ec56e
..
9a94ce0
100644
(file)
--- a/
GHC/Err.lhs
+++ b/
GHC/Err.lhs
@@
-33,8
+33,7
@@
module GHC.Err
) where
#ifndef __HADDOCK__
) where
#ifndef __HADDOCK__
-import GHC.Base
-import GHC.IOBase
+import GHC.Types
import GHC.Exception
#endif
\end{code}
import GHC.Exception
#endif
\end{code}
@@
-47,7
+46,7
@@
import GHC.Exception
\begin{code}
-- | 'error' stops execution and displays an error message.
\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'.
error s = throw (ErrorCall s)
-- | A special case of 'error'.