Repository : http://darcs.haskell.org/ghc.git/
On branch : master https://github.com/ghc/ghc/commit/a5b7ee5fc26ac322e7dc79de96e478cde819640c >--------------------------------------------------------------- commit a5b7ee5fc26ac322e7dc79de96e478cde819640c Author: Gabor Greif <ggr...@gmail.com> Date: Wed Jul 3 22:56:23 2013 +0200 Comment out a leftover pprTrace >--------------------------------------------------------------- compiler/stranal/DmdAnal.lhs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index 572a39d..0aff8ff 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -26,7 +26,7 @@ import Data.List import DataCon import Id import CoreUtils ( exprIsHNF, exprType, exprIsTrivial ) -import PprCore +-- import PprCore import TyCon import Type ( eqType ) -- import Pair @@ -536,12 +536,12 @@ dmdFix top_lvl env orig_pairs -- iteration of sigs. | n >= 10 - = pprTrace "dmdFix loop" (ppr n <+> (vcat - [ text "Sigs:" <+> ppr [ (id,lookupVarEnv (sigEnv env) id, - lookupVarEnv (sigEnv env') id) - | (id,_) <- pairs], - text "env:" <+> ppr env, - text "binds:" <+> pprCoreBinding (Rec pairs)])) + = -- pprTrace "dmdFix loop" (ppr n <+> (vcat + -- [ text "Sigs:" <+> ppr [ (id,lookupVarEnv (sigEnv env) id, + -- lookupVarEnv (sigEnv env') id) + -- | (id,_) <- pairs], + -- text "env:" <+> ppr env, + -- text "binds:" <+> pprCoreBinding (Rec pairs)])) (env, lazy_fv, orig_pairs) -- Safe output -- The lazy_fv part is really important! orig_pairs has no strictness -- info, including nothing about free vars. But if we have _______________________________________________ ghc-commits mailing list ghc-commits@haskell.org http://www.haskell.org/mailman/listinfo/ghc-commits
