Use -dppr-debug to make it noisy again
= case wkr_expr of
Var w1 -> InlineWrapper w1
_other -> WARN( True, text "Interesting! CoreSubst.substWorker1:" <+> ppr wkr
= case wkr_expr of
Var w1 -> InlineWrapper w1
_other -> WARN( True, text "Interesting! CoreSubst.substWorker1:" <+> ppr wkr
- <+> equals <+> ppr wkr_expr ) -- Note [Worker inlining]
+ <+> ifPprDebug (equals <+> ppr wkr_expr) )
+ -- Note [Worker inlining]
InlineRule -- It's not a wrapper any more, but still inline it!
| Just w1 <- lookupInScope in_scope wkr = InlineWrapper w1
InlineRule -- It's not a wrapper any more, but still inline it!
| Just w1 <- lookupInScope in_scope wkr = InlineWrapper w1
warnPprTrace _ _file _line _msg x | opt_NoDebugOutput = x
warnPprTrace False _file _line _msg x = x
warnPprTrace True file line msg x
warnPprTrace _ _file _line _msg x | opt_NoDebugOutput = x
warnPprTrace False _file _line _msg x = x
warnPprTrace True file line msg x
- = trace (show (doc PprDebug)) x
+ = trace (show (doc defaultDumpStyle)) x
where
doc = sep [hsep [text "WARNING: file", text file, text "line", int line],
msg]
where
doc = sep [hsep [text "WARNING: file", text file, text "line", int line],
msg]