Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/82a8ffd8179e0f99271a608e52f083d7a09d24ee >--------------------------------------------------------------- commit 82a8ffd8179e0f99271a608e52f083d7a09d24ee Author: Ian Lynagh <[email protected]> Date: Thu Jun 14 02:40:02 2012 +0100 Rename Coverage.dflags to Coverage.tte_dflags The record field was confusingly using the same name that the value normally uses. >--------------------------------------------------------------- compiler/deSugar/Coverage.lhs | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index 45c869a..fa7c343 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -82,7 +82,7 @@ addTicksToBinds dflags mod mod_loc exports tyCons binds = (TTE { fileName = mkFastString orig_file2 , declPath = [] - , dflags = dflags + , tte_dflags = dflags , exports = exports , inScope = emptyVarSet , blackList = Map.fromList @@ -867,7 +867,7 @@ data TickTransState = TT { tickBoxCount:: Int data TickTransEnv = TTE { fileName :: FastString , density :: TickDensity - , dflags :: DynFlags + , tte_dflags :: DynFlags , exports :: NameSet , declPath :: [String] , inScope :: VarSet @@ -1018,7 +1018,7 @@ mkTickish boxLabel countEntries topOnly pos fvs decl_path = cc = mkUserCC (mkFastString cc_name) (this_mod env) pos (mkCostCentreUnique c) - count = countEntries && dopt Opt_ProfCountEntries (dflags env) + count = countEntries && dopt Opt_ProfCountEntries (tte_dflags env) tickish | opt_Hpc = HpcTick (this_mod env) c _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
