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:
51b836e
)
Pretty printing instance for Unfolding
author
simonpj@microsoft.com
<unknown>
Thu, 4 May 2006 11:14:29 +0000
(11:14 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 4 May 2006 11:14:29 +0000
(11:14 +0000)
compiler/coreSyn/CoreUnfold.lhs
patch
|
blob
|
history
diff --git
a/compiler/coreSyn/CoreUnfold.lhs
b/compiler/coreSyn/CoreUnfold.lhs
index
d57f188
..
e50f304
100644
(file)
--- a/
compiler/coreSyn/CoreUnfold.lhs
+++ b/
compiler/coreSyn/CoreUnfold.lhs
@@
-36,7
+36,7
@@
import StaticFlags ( opt_UF_CreationThreshold, opt_UF_UseThreshold,
)
import DynFlags ( DynFlags, DynFlag(..), dopt )
import CoreSyn
)
import DynFlags ( DynFlags, DynFlag(..), dopt )
import CoreSyn
-import PprCore ( pprCoreExpr )
+import PprCore () -- Instances
import OccurAnal ( occurAnalyseExpr )
import CoreUtils ( exprIsHNF, exprIsCheap, exprIsTrivial )
import Id ( Id, idType, isId,
import OccurAnal ( occurAnalyseExpr )
import CoreUtils ( exprIsHNF, exprIsCheap, exprIsTrivial )
import Id ( Id, idType, isId,
@@
-87,6
+87,14
@@
mkUnfolding top_lvl expr
-- This can occasionally mean that the guidance is very pessimistic;
-- it gets fixed up next round
-- This can occasionally mean that the guidance is very pessimistic;
-- it gets fixed up next round
+instance Outputable Unfolding where
+ ppr NoUnfolding = ptext SLIT("No unfolding")
+ ppr (OtherCon cs) = ptext SLIT("OtherCon") <+> ppr cs
+ ppr (CompulsoryUnfolding e) = ptext SLIT("Compulsory") <+> ppr e
+ ppr (CoreUnfolding e top hnf cheap g)
+ = ptext SLIT("Unf") <+> sep [ppr top <+> ppr hnf <+> ppr cheap <+> ppr g,
+ ppr e]
+
mkCompulsoryUnfolding expr -- Used for things that absolutely must be unfolded
= CompulsoryUnfolding (occurAnalyseExpr expr)
\end{code}
mkCompulsoryUnfolding expr -- Used for things that absolutely must be unfolded
= CompulsoryUnfolding (occurAnalyseExpr expr)
\end{code}