[commit: ghc] supercompiler: Correct the circumstances in which SC IdInfo gets ppred (c027f2e)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler http://hackage.haskell.org/trac/ghc/changeset/c027f2e572b256321d2fce1569a0f2e7a38246ce >--------------------------------------------------------------- commit c027f2e572b256321d2fce1569a0f2e7a38246ce Author: Max Bolingbroke <[email protected]> Date: Mon Mar 12 13:13:32 2012 +0000 Correct the circumstances in which SC IdInfo gets ppred >--------------------------------------------------------------- compiler/coreSyn/PprCore.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs index 118873d..56c7907 100644 --- a/compiler/coreSyn/PprCore.lhs +++ b/compiler/coreSyn/PprCore.lhs @@ -358,7 +358,7 @@ ppIdInfo id info , (has_caf_info, ptext (sLit "Caf=") <> ppr caf_info) , (has_strictness, ptext (sLit "Str=") <> pprStrictness str_info) , (has_unf, ptext (sLit "Unf=") <> ppr unf_info) - , (has_unf, ptext (sLit "SC=") <> ppr sc_info) + , (sc_info, ptext (sLit "SC=") <> ppr sc_info) , (not (null rules), ptext (sLit "RULES:") <+> vcat (map pprRule rules)) ] -- Inline pragma, occ, demand, lbvar info -- printed out with all binders (when debug is on);