[commit: ghc] master: Spit out a little more info with -dppr-debug (fa915af)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/fa915afa1af971c22657a0c99f6fb974faafe826/ghc

>---------------------------------------------------------------

commit fa915afa1af971c22657a0c99f6fb974faafe826
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Jul 29 16:39:14 2015 +0100

    Spit out a little more info with -dppr-debug


>---------------------------------------------------------------

fa915afa1af971c22657a0c99f6fb974faafe826
 compiler/deSugar/Desugar.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/deSugar/Desugar.hs b/compiler/deSugar/Desugar.hs
index 6dbdfca..09e2554 100644
--- a/compiler/deSugar/Desugar.hs
+++ b/compiler/deSugar/Desugar.hs
@@ -404,7 +404,8 @@ warnRuleShadowing rule_name rule_act fn_id arg_ids
                             2 (ptext (sLit "because") <+> quotes (ppr lhs_id)
                                <+> ptext (sLit "might inline first"))
                      , ptext (sLit "Probable fix: add an INLINE[n] or NOINLINE[n] pragma for")
-                       <+> quotes (ppr lhs_id) ])
+                       <+> quotes (ppr lhs_id)
+                     , ifPprDebug (ppr (idInlineActivation lhs_id) $$ ppr rule_act) ])
 
       | check_rules_too
       , bad_rule : _ <- get_bad_rules lhs_id