From 25d1eafeb41f046630f978da3655ae578c9c83b1 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Fri, 15 Feb 2013 20:51:56 +0000
Subject: Remove nhc98-specific files and content

---
 libraries/base/Control/Exception.hs | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'libraries/base/Control/Exception.hs')

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)
 
-- 
cgit v1.2.1