diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-07-29 16:39:14 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-07-30 11:03:09 +0100 |
| commit | fa915afa1af971c22657a0c99f6fb974faafe826 (patch) | |
| tree | 437acb361b214a4e51eb93e914b9d9015a8bc0b7 /compiler/deSugar/Desugar.hs | |
| parent | 92d2567230e28010e425b47057ccca66d1a9a712 (diff) | |
| download | haskell-fa915afa1af971c22657a0c99f6fb974faafe826.tar.gz | |
Spit out a little more info with -dppr-debug
Diffstat (limited to 'compiler/deSugar/Desugar.hs')
| -rw-r--r-- | compiler/deSugar/Desugar.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/deSugar/Desugar.hs b/compiler/deSugar/Desugar.hs index 6dbdfca973..09e2554b05 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 |