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/simplCore/Simplify.lhs | |
| 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/simplCore/Simplify.lhs')
| -rw-r--r-- | compiler/simplCore/Simplify.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index 726d0d5642..44286b4725 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -1425,7 +1425,7 @@ completeCall env var cont pprDefiniteTrace "Inlining done:" (ppr var) stuff else stuff | otherwise - = pprDefiniteTrace ("Inlining done: " ++ showSDocDump (ppr var)) + = pprDefiniteTrace ("Inlining done: " ++ showSDocDump dflags (ppr var)) (vcat [text "Inlined fn: " <+> nest 2 (ppr unfolding), text "Cont: " <+> ppr cont]) stuff |