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:
0db1d50
)
Fix pretty-printer
author
simonpj@microsoft.com
<unknown>
Tue, 22 Dec 2009 16:21:30 +0000
(16:21 +0000)
committer
simonpj@microsoft.com
<unknown>
Tue, 22 Dec 2009 16:21:30 +0000
(16:21 +0000)
compiler/coreSyn/PprCore.lhs
patch
|
blob
|
history
diff --git
a/compiler/coreSyn/PprCore.lhs
b/compiler/coreSyn/PprCore.lhs
index
4d828b6
..
26fe688
100644
(file)
--- a/
compiler/coreSyn/PprCore.lhs
+++ b/
compiler/coreSyn/PprCore.lhs
@@
-371,9
+371,9
@@
showAttributes stuff
\begin{code}
instance Outputable UnfoldingGuidance where
ppr UnfNever = ptext (sLit "NEVER")
\begin{code}
instance Outputable UnfoldingGuidance where
ppr UnfNever = ptext (sLit "NEVER")
- ppr (UnfWhen sat_ok boring_ok)
+ ppr (UnfWhen unsat_ok boring_ok)
= ptext (sLit "ALWAYS_IF") <>
= ptext (sLit "ALWAYS_IF") <>
- parens (ptext (sLit "sat_ok=") <> ppr sat_ok <> comma <>
+ parens (ptext (sLit "unsat_ok=") <> ppr unsat_ok <> comma <>
ptext (sLit "boring_ok=") <> ppr boring_ok)
ppr (UnfIfGoodArgs { ug_args = cs, ug_size = size, ug_res = discount })
= hsep [ ptext (sLit "IF_ARGS"),
ptext (sLit "boring_ok=") <> ppr boring_ok)
ppr (UnfIfGoodArgs { ug_args = cs, ug_size = size, ug_res = discount })
= hsep [ ptext (sLit "IF_ARGS"),