From: panne <unknown>
Date: Sat, 8 Jul 2000 18:17:40 +0000 (+0000)
Subject: [project @ 2000-07-08 18:17:40 by panne]
X-Git-Tag: Approximately_9120_patches~4056
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f79dabfcfcd892835c3c0dd3608b7642163dbe51;p=ghc-hetmet.git

[project @ 2000-07-08 18:17:40 by panne]
Fixed Show instance for Exception
---

diff --git a/ghc/lib/std/PrelIOBase.lhs b/ghc/lib/std/PrelIOBase.lhs
index 7c53b59..a50cc29 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}
 
 %*********************************************************