X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FException.hs;h=4134fca8673ea25249809e81acf6a4a87f1d29f2;hb=41e8fba828acbae1751628af50849f5352b27873;hp=b8c90838b8524eeb361248070806e13163af994c;hpb=5b7361dbe789dbea3bf6176ba5a0c161f24a8de0;p=ghc-base.git

diff --git a/GHC/IO/Exception.hs b/GHC/IO/Exception.hs
index b8c9083..4134fca 100644
--- a/GHC/IO/Exception.hs
+++ b/GHC/IO/Exception.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude -funbox-strict-fields #-}
+{-# LANGUAGE NoImplicitPrelude, DeriveDataTypeable, MagicHash #-}
+{-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
 -- |
@@ -64,7 +65,7 @@ blockedIndefinitelyOnMVar = toException BlockedIndefinitelyOnMVar
 
 -----
 
--- |The thread is awaiting to retry an STM transaction, but there are no
+-- |The thread is waiting to retry an STM transaction, but there are no
 -- other references to any @TVar@s involved, so it can't ever continue.
 data BlockedIndefinitelyOnSTM = BlockedIndefinitelyOnSTM
     deriving Typeable
@@ -169,6 +170,7 @@ instance Show ArrayException where
 -- We need it here because it is used in ExitException in the
 -- Exception datatype (above).
 
+-- | Defines the exit codes that a program can return.
 data ExitCode
   = ExitSuccess -- ^ indicates successful termination;
   | ExitFailure Int
@@ -193,7 +195,7 @@ ioError         =  ioException
 -- | The Haskell 98 type for exceptions in the 'IO' monad.
 -- Any I\/O operation may raise an 'IOError' instead of returning a result.
 -- For a more general type of exception, including also those that arise
--- in pure code, see 'Control.Exception.Exception'.
+-- in pure code, see "Control.Exception.Exception".
 --
 -- In Haskell 98, this is an opaque type.
 type IOError = IOException