From 8e76afc1496b9ada728b527b6d3c1c15fca77bd4 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 5 Aug 2008 14:28:11 +0000 Subject: [PATCH] Add a missing case to Show AsyncException --- GHC/IOBase.lhs | 1 + 1 file changed, 1 insertion(+) 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) -- 1.7.10.4