X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIOBase.lhs;fp=GHC%2FIOBase.lhs;h=408364f59762ad21397745bf4a7ee2ead7580bef;hb=8e76afc1496b9ada728b527b6d3c1c15fca77bd4;hp=aa4af69854ae2b46f7b4c07cb9c2748c242314ee;hpb=c5b70b85a0f07c40320bfaa7219f64d73e857bfb;p=ghc-base.git

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)