diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-15 20:51:56 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-15 20:51:56 +0000 |
| commit | 25d1eafeb41f046630f978da3655ae578c9c83b1 (patch) | |
| tree | 6cb8dc7b9d0b1dfddbdec07b0f3e652b41947aa8 /libraries/base/Control/Exception.hs | |
| parent | ab1d58b71736b629d28e3ce48310414880dabca3 (diff) | |
| download | haskell-25d1eafeb41f046630f978da3655ae578c9c83b1.tar.gz | |
Remove nhc98-specific files and content
Diffstat (limited to 'libraries/base/Control/Exception.hs')
| -rw-r--r-- | libraries/base/Control/Exception.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/libraries/base/Control/Exception.hs b/libraries/base/Control/Exception.hs index e3a3a24b8e..35f1e8ac21 100644 --- a/libraries/base/Control/Exception.hs +++ b/libraries/base/Control/Exception.hs @@ -52,9 +52,6 @@ module Control.Exception ( NonTermination(..), NestedAtomically(..), #endif -#ifdef __NHC__ - System.ExitCode(), -- instance Exception -#endif BlockedIndefinitelyOnMVar(..), BlockedIndefinitelyOnSTM(..), @@ -111,14 +108,12 @@ module Control.Exception ( -- asynchronous exceptions during a critical region. mask, -#ifndef __NHC__ mask_, uninterruptibleMask, uninterruptibleMask_, MaskingState(..), getMaskingState, allowInterrupt, -#endif -- ** (deprecated) Asynchronous exception control @@ -159,10 +154,6 @@ import Data.Maybe import Prelude hiding (catch) #endif -#ifdef __NHC__ -import System (ExitCode()) -#endif - -- | You need this when using 'catches'. data Handler a = forall e . Exception e => Handler (e -> IO a) |