projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add tests from testsuite/tests/h98
[ghc-base.git]
/
GHC
/
Err.lhs
diff --git
a/GHC/Err.lhs
b/GHC/Err.lhs
index
b2bca94
..
90142f4
100644
(file)
--- a/
GHC/Err.lhs
+++ b/
GHC/Err.lhs
@@
-1,6
+1,7
@@
\begin{code}
\begin{code}
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK hide #-}
{-# OPTIONS_HADDOCK hide #-}
+
-----------------------------------------------------------------------------
-- |
-- Module : GHC.Err
-----------------------------------------------------------------------------
-- |
-- Module : GHC.Err
@@
-33,9
+34,7
@@
module GHC.Err
) where
#ifndef __HADDOCK__
) where
#ifndef __HADDOCK__
-import GHC.Base
-import GHC.IOBase
-import GHC.List ()
+import GHC.Types
import GHC.Exception
#endif
\end{code}
import GHC.Exception
#endif
\end{code}
@@
-48,7
+47,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'.