FIX part of #2301

[ghc-base.git] / GHC / IOBase.lhs

diff --git a/GHC/IOBase.lhs b/GHC/IOBase.lhs
index a11ec62..168daf3 100644 (file)
--- a/GHC/IOBase.lhs
+++ b/GHC/IOBase.lhs
@@ -742,6 +742,10 @@ data AsyncException
         -- calling 'Control.Concurrent.killThread', or by the system
         -- if it needs to terminate the thread for some
         -- reason.
+  | UserInterrupt
+        -- ^This exception is raised by default in the main thread of
+        -- the program when the user requests to terminate the program
+        -- via the usual mechanism(s) (e.g. Control-C in the console).
   deriving (Eq, Ord)
 
 -- | Exceptions generated by array operations