diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2012-03-07 17:28:21 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2012-03-07 17:28:21 +0000 |
| commit | 4f070dd16ee31f38aff931f4b7b0ce562dcb98f4 (patch) | |
| tree | dd41663f9b3fc6934e573c6f8ee2106db8259192 /compiler/coreSyn | |
| parent | feeedb3ccf4977eb028924d072244237ff6e3984 (diff) | |
| parent | 28f783f1c367784e0adcac2447682061a38f2ba3 (diff) | |
| download | haskell-unboxed-tuple-arguments.tar.gz | |
Merge branch 'master' of ssh://darcs.haskell.org/srv/darcs/ghc into unboxed-tuple-argumentsunboxed-tuple-arguments
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 930041dea4..96a1abdcbe 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -863,7 +863,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: " ++ showSDoc (ppr id)) + = pprTrace ("Considering inlining: " ++ showSDocDump (ppr id)) (vcat [text "arg infos" <+> ppr arg_infos, text "uf arity" <+> ppr uf_arity, text "interesting continuation" <+> ppr cont_info, |