From: Ian Lynagh <igloo@earth.li>
Date: Tue, 5 Aug 2008 14:28:11 +0000 (+0000)
Subject: Add a missing case to Show AsyncException
X-Git-Tag: 6_10_branch_has_been_forked~82
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8e76afc1496b9ada728b527b6d3c1c15fca77bd4;p=ghc-base.git

Add a missing case to Show AsyncException
---

diff --git a/GHC/IOBase.lhs b/GHC/IOBase.lhs
index aa4af69..408364f 100644
--- a/GHC/IOBase.lhs
+++ b/GHC/IOBase.lhs
@@ -747,6 +747,7 @@ instance Show AsyncException where
   showsPrec _ StackOverflow   = showString "stack overflow"
   showsPrec _ HeapOverflow    = showString "heap overflow"
   showsPrec _ ThreadKilled    = showString "thread killed"
+  showsPrec _ UserInterrupt   = showString "user interrupt"
 
 instance Show ArrayException where
   showsPrec _ (IndexOutOfBounds s)