From: simonmar <unknown>
Date: Fri, 29 Jun 2001 15:30:49 +0000 (+0000)
Subject: [project @ 2001-06-29 15:30:49 by simonmar]
X-Git-Tag: Approximately_9120_patches~1642
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=af630baad68f35adf76d898f5be768f447bc7ff8;p=ghc-hetmet.git

[project @ 2001-06-29 15:30:49 by simonmar]
reformat & add a comment
---

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