Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
f79dabfc
Commit
f79dabfc
authored
Jul 08, 2000
by
panne
Browse files
[project @ 2000-07-08 18:17:40 by panne]
Fixed Show instance for Exception
parent
46ed752a
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/lib/std/PrelIOBase.lhs
View file @
f79dabfc
% ------------------------------------------------------------------------------
% $Id: PrelIOBase.lhs,v 1.2
6
2000/07/0
7
1
1:03:58 simonmar
Exp $
% $Id: PrelIOBase.lhs,v 1.2
7
2000/07/0
8
1
8:17:40 panne
Exp $
%
% (c) The University of Glasgow, 1994-2000
%
...
...
@@ -450,11 +450,12 @@ instance Show Exception where
showsPrec _ (RecConError err) = showString err
showsPrec _ (RecUpdError err) = showString err
showsPrec _ (AssertionFailed err) = showString err
showsPrec _ (AsyncException e) = shows e
showsPrec _ (DynException _err) = showString "unknown exception"
showsPrec _ (AsyncException e) = shows e
showsPrec _ (PutFullMVar) = showString "putMVar: full MVar"
showsPrec _ (BlockedOnDeadMVar) = showString "thread blocked indefinitely"
showsPrec _ (NonTermination) = showString "<<loop>>"
showsPrec _ (UserError err) = showString err
\end{code}
%*********************************************************
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment