From 4a950d42cec065b6646537bd088b634a25fd5453 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 7 Aug 2001 10:54:01 +0000
Subject: [PATCH] [project @ 2001-08-07 10:54:01 by simonmar] Back out the
 ExitException change; it's already taken into account by
 DriverUtil.handle.

Sigbjorn: I'm not sure what was going on with your Win32 build, but it
looks like it was a bug somewhere else.
---
 ghc/compiler/main/Main.hs |   10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index 5a7d6c5..a62e332 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -fno-warn-incomplete-patterns #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.83 2001/08/03 23:38:50 ken Exp $
+-- $Id: Main.hs,v 1.84 2001/08/07 10:54:01 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -114,12 +114,8 @@ main =
   handle (\exception -> do
 	   case exception of
 		-- an IO exception probably isn't our fault, so don't panic
-		IOException _   ->  hPutStr stderr (show exception)
-#if __GLASGOW_HASKELL__ >= 501
-		  -- let exit exceptions bubble all the way out.
-		ExitException e ->  exitWith e
-#endif
-		_other 	        ->  hPutStr stderr (show (Panic (show exception)))
+		IOException _ ->  hPutStr stderr (show exception)
+		_other 	      ->  hPutStr stderr (show (Panic (show exception)))
 	   exitWith (ExitFailure 1)
          ) $ do
 
-- 
1.7.10.4