From f79dabfcfcd892835c3c0dd3608b7642163dbe51 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 8 Jul 2000 18:17:40 +0000
Subject: [PATCH] [project @ 2000-07-08 18:17:40 by panne] Fixed Show instance
for Exception
---
ghc/lib/std/PrelIOBase.lhs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/std/PrelIOBase.lhs b/ghc/lib/std/PrelIOBase.lhs
index 7c53b59b1e61..a50cc293516b 100644
--- a/ghc/lib/std/PrelIOBase.lhs
+++ b/ghc/lib/std/PrelIOBase.lhs
@@ -1,5 +1,5 @@
% ------------------------------------------------------------------------------
-% $Id: PrelIOBase.lhs,v 1.26 2000/07/07 11:03:58 simonmar Exp $
+% $Id: PrelIOBase.lhs,v 1.27 2000/07/08 18: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}
%*********************************************************
--
GitLab