From f23ba2b294429ccbdeb80f0344ec08f6abf61bb7 Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 10 Nov 2000 15:12:55 +0000 Subject: [project @ 2000-11-10 15:12:50 by simonpj] 1. Outputable.PprStyle now carries a bit more information In particular, the printing style tells whether to print a name in unqualified form. This used to be embedded in a Name, but since Names now outlive a single compilation unit, that's no longer appropriate. So now the print-unqualified predicate is passed in the printing style, not embedded in the Name. 2. I tidied up HscMain a little. Many of the showPass messages have migraged into the repective pass drivers --- ghc/compiler/specialise/Specialise.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ghc/compiler/specialise') diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs index 9952c924cc..095b7e2b43 100644 --- a/ghc/compiler/specialise/Specialise.lhs +++ b/ghc/compiler/specialise/Specialise.lhs @@ -29,7 +29,7 @@ import CoreSyn import CoreUtils ( applyTypeToArgs ) import CoreUnfold ( certainlyWillInline ) import CoreFVs ( exprFreeVars, exprsFreeVars ) -import CoreLint ( beginPass, endPass ) +import CoreLint ( showPass, endPass ) import PprCore ( pprCoreRules ) import Rules ( addIdSpecialisations, lookupRule ) @@ -580,7 +580,7 @@ Hence, the invariant is this: specProgram :: DynFlags -> UniqSupply -> [CoreBind] -> IO [CoreBind] specProgram dflags us binds = do - beginPass dflags "Specialise" + showPass dflags "Specialise" let binds' = initSM us (go binds `thenSM` \ (binds', uds') -> returnSM (dumpAllDictBinds uds' binds')) -- cgit v1.2.1