diff options
| author | Gabor Greif <ggreif@gmail.com> | 2013-07-03 22:56:23 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2013-07-03 22:56:23 +0200 |
| commit | a5b7ee5fc26ac322e7dc79de96e478cde819640c (patch) | |
| tree | 87535009b873fb3e17b7c33f1755de7f66c6616f | |
| parent | 606ec0a1749399d9085444362b7203b4e96e0530 (diff) | |
| download | haskell-a5b7ee5fc26ac322e7dc79de96e478cde819640c.tar.gz | |
Comment out a leftover pprTrace
| -rw-r--r-- | compiler/stranal/DmdAnal.lhs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index 572a39d0b7..0aff8ffd93 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 @@ -535,13 +535,13 @@ dmdFix top_lvl env orig_pairs -- is the result of processing the RHSs with the *previous* -- 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)])) + | 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)])) (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 |