diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 00:46:49 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 00:46:49 +0100 |
| commit | 8685576a3a1802e98480d74beecf7c8450363907 (patch) | |
| tree | b19714a298d7e61fd3cc893915e400c66bc129fa /compiler/coreSyn | |
| parent | a6ec94937f9456f5c7ee122b088f37048bf8b265 (diff) | |
| download | haskell-8685576a3a1802e98480d74beecf7c8450363907.tar.gz | |
Pass DynFlags down to showSDocDump
To help with this, we now also pass DynFlags around inside the SpecM
monad.
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreUnfold.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index c717e4b300..8f62ed439e 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -896,7 +896,7 @@ tryUnfolding dflags id lone_variable -- uf_arity will typically be equal to (idArity id), -- but may be less for InlineRules | dopt Opt_D_dump_inlinings dflags && dopt Opt_D_verbose_core2core dflags - = pprTrace ("Considering inlining: " ++ showSDocDump (ppr id)) + = pprTrace ("Considering inlining: " ++ showSDocDump dflags (ppr id)) (vcat [text "arg infos" <+> ppr arg_infos, text "uf arity" <+> ppr uf_arity, text "interesting continuation" <+> ppr cont_info, |