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)