projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2d4b82a
)
A little more debug printing
author
simonpj@microsoft.com
<unknown>
Wed, 8 Feb 2006 15:07:01 +0000
(15:07 +0000)
committer
simonpj@microsoft.com
<unknown>
Wed, 8 Feb 2006 15:07:01 +0000
(15:07 +0000)
ghc/compiler/simplCore/SimplUtils.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/simplCore/SimplUtils.lhs
b/ghc/compiler/simplCore/SimplUtils.lhs
index
0d9be52
..
9e616b5
100644
(file)
--- a/
ghc/compiler/simplCore/SimplUtils.lhs
+++ b/
ghc/compiler/simplCore/SimplUtils.lhs
@@
-27,7
+27,6
@@
import DynFlags ( SimplifierSwitch(..), SimplifierMode(..),
DynFlag(..), dopt )
import StaticFlags ( opt_UF_UpdateInPlace, opt_SimplNoPreInlining,
opt_RulesOff )
DynFlag(..), dopt )
import StaticFlags ( opt_UF_UpdateInPlace, opt_SimplNoPreInlining,
opt_RulesOff )
-
import CoreSyn
import CoreFVs ( exprFreeVars )
import CoreUtils ( cheapEqExpr, exprType, exprIsTrivial, exprIsCheap,
import CoreSyn
import CoreFVs ( exprFreeVars )
import CoreUtils ( cheapEqExpr, exprType, exprIsTrivial, exprIsCheap,
@@
-107,7
+106,7
@@
instance Outputable LetRhsFlag where
ppr AnRhs = ptext SLIT("rhs")
instance Outputable SimplCont where
ppr AnRhs = ptext SLIT("rhs")
instance Outputable SimplCont where
- ppr (Stop _ is_rhs _) = ptext SLIT("Stop") <> brackets (ppr is_rhs)
+ ppr (Stop ty is_rhs _) = ptext SLIT("Stop") <> brackets (ppr is_rhs) <+> ppr ty
ppr (ApplyTo dup arg se cont) = (ptext SLIT("ApplyTo") <+> ppr dup <+> ppr arg) $$ ppr cont
ppr (ArgOf _ _ _ _) = ptext SLIT("ArgOf...")
ppr (Select dup bndr alts se cont) = (ptext SLIT("Select") <+> ppr dup <+> ppr bndr) $$
ppr (ApplyTo dup arg se cont) = (ptext SLIT("ApplyTo") <+> ppr dup <+> ppr arg) $$ ppr cont
ppr (ArgOf _ _ _ _) = ptext SLIT("ArgOf...")
ppr (Select dup bndr alts se cont) = (ptext SLIT("Select") <+> ppr dup <+> ppr bndr) $$