X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=f85040baa17c4a9ca68409c1495795df70c4e9b1;hb=099c27165f511374eb22c39c2b75d5f8de8ee3a5;hp=fb1556c49926efeca7ba20add36bcb79954ffcdc;hpb=6e5735b5dfe4ce212d7bbea56ac11dcf7d65c8a9;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index fb1556c..f85040b 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.91 2001/11/03 01:30:42 sof Exp $
+-- $Id: Main.hs,v 1.92 2001/12/05 00:08:27 sof Exp $
 --
 -- GHC Driver program
 --
@@ -125,7 +125,7 @@ main =
   handleDyn (\dyn -> do
   		hFlush stdout
   		case dyn of
-		     PhaseFailed _phase code -> exitWith code
+		     PhaseFailed _ code -> exitWith code
 		     Interrupted -> exitWith (ExitFailure 1)
 		     _ -> do hPutStrLn stderr (show (dyn :: GhcException))
 			     exitWith (ExitFailure 1)