X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplCore.lhs;h=7b9ae306d82ffea3a5d2906ca98a7c5da9d41ef8;hb=f23ba2b294429ccbdeb80f0344ec08f6abf61bb7;hp=2bb6b9351a0029cbdc55ef0d71ee8e8bda1c0981;hpb=ff5cab2bc5c17672796c82d3ad13a38402ccc32f;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 2bb6b93..7b9ae30 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -13,7 +13,7 @@ import CmdLineOpts	( CoreToDo(..), SimplifierSwitch(..),
                           opt_UsageSPOn,
 			  DynFlags, DynFlag(..), dopt, dopt_CoreToDo
 			)
-import CoreLint		( beginPass, endPass )
+import CoreLint		( showPass, endPass )
 import CoreSyn
 import CoreFVs		( ruleSomeFreeVars )
 import HscTypes		( PackageRuleBase, HomeSymbolTable, ModDetails(..) )
@@ -297,7 +297,7 @@ glomBinds :: DynFlags -> [CoreBind] -> IO [CoreBind]
 -- analyser as free in f.
 
 glomBinds dflags binds
-  = do { beginPass dflags "GlomBinds" ;
+  = do { showPass dflags "GlomBinds" ;
 	 let { recd_binds = [Rec (flattenBinds binds)] } ;
 	 return recd_binds }
 	-- Not much point in printing the result... 
@@ -322,7 +322,7 @@ simplifyPgm :: DynFlags
 simplifyPgm dflags rule_base
 	    sw_chkr us binds
   = do {
-	beginPass dflags "Simplify";
+	showPass dflags "Simplify";
 
 	(termination_msg, it_count, counts_out, binds') 
 	   <- iteration us 1 (zeroSimplCount dflags) binds;