diff options
| author | simonpj@microsoft.com <unknown> | 2009-01-13 17:58:06 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-01-13 17:58:06 +0000 |
| commit | e3cb60d26917d7be1b34030b1e5a579fbef9d067 (patch) | |
| tree | 9b678535b79448ea602d4b509931de06ebedca8e /compiler/coreSyn | |
| parent | 8275817fa739644d332aea3871802905d45bfa63 (diff) | |
| download | haskell-e3cb60d26917d7be1b34030b1e5a579fbef9d067.tar.gz | |
Improve trace message
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreUnfold.lhs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index 38513af2b4..496d7a07e7 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -634,14 +634,14 @@ callSiteInline dflags active_inline id lone_variable arg_infos cont_info in if dopt Opt_D_dump_inlinings dflags then - pprTrace "Considering inlining" - (ppr id <+> vcat [text "active:" <+> ppr active_inline, - text "arg infos" <+> ppr arg_infos, - text "interesting continuation" <+> ppr cont_info, - text "is value:" <+> ppr is_value, - text "is cheap:" <+> ppr is_cheap, - text "guidance" <+> ppr guidance, - text "ANSWER =" <+> if yes_or_no then text "YES" else text "NO"]) + pprTrace ("Considering inlining: " ++ showSDoc (ppr id)) + (vcat [text "active:" <+> ppr active_inline, + text "arg infos" <+> ppr arg_infos, + text "interesting continuation" <+> ppr cont_info, + text "is value:" <+> ppr is_value, + text "is cheap:" <+> ppr is_cheap, + text "guidance" <+> ppr guidance, + text "ANSWER =" <+> if yes_or_no then text "YES" else text "NO"]) result else result |