projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-07-26 17:22:41 by ross]
[ghc-base.git]
/
GHC
/
Err.lhs
diff --git
a/GHC/Err.lhs
b/GHC/Err.lhs
index
a44e1a5
..
803fdf0
100644
(file)
--- a/
GHC/Err.lhs
+++ b/
GHC/Err.lhs
@@
-52,12
+52,13
@@
import GHC.Exception
%*********************************************************
\begin{code}
%*********************************************************
\begin{code}
--- error stops execution and displays an error message
+-- | 'error' stops execution and displays an error message.
error :: String -> a
error s = throw (ErrorCall s)
error :: String -> a
error s = throw (ErrorCall s)
+-- | A special case of 'error'.
-- It is expected that compilers will recognize this and insert error
-- It is expected that compilers will recognize this and insert error
--- messages which are more appropriate to the context in which undefined
+-- messages which are more appropriate to the context in which 'undefined'
-- appears.
undefined :: a
-- appears.
undefined :: a