From af630baad68f35adf76d898f5be768f447bc7ff8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 29 Jun 2001 15:30:49 +0000
Subject: [PATCH] [project @ 2001-06-29 15:30:49 by simonmar] reformat & add a
 comment

---
 ghc/compiler/main/Main.hs |   15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index c104285..5cf7ddf 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.77 2001/06/29 12:58:20 rrt Exp $
+-- $Id: Main.hs,v 1.78 2001/06/29 15:30:49 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -111,12 +111,13 @@ import Dynamic		( toDyn )
 
 main =
   -- top-level exception handler: any unrecognised exception is a compiler bug.
-  handle (\exn -> case exn of
-	               IOException _ -> do hPutStr stderr (show exn)
-	                                   exitWith (ExitFailure 1)
-	               _             -> do hPutStr stderr (show (Panic (show exn)))
-	                                   exitWith (ExitFailure 1)
-	 ) $ do
+  handle (\exception -> do
+	   case exception of
+		-- an IO exception probably isn't our fault, so don't panic
+		IOException _ ->  hPutStr stderr (show exception)
+		_other 	      ->  hPutStr stderr (show (Panic (show exception)))
+	   exitWith (ExitFailure 1)
+         ) $ do
 
   -- all error messages are propagated as exceptions
   handleDyn (\dyn -> case dyn of
-- 
1.7.10.4