diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/OccurAnal.hs')
-rw-r--r-- | compiler/GHC/Core/Opt/OccurAnal.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/GHC/Core/Opt/OccurAnal.hs b/compiler/GHC/Core/Opt/OccurAnal.hs index 7df9ead69f..12269b0a29 100644 --- a/compiler/GHC/Core/Opt/OccurAnal.hs +++ b/compiler/GHC/Core/Opt/OccurAnal.hs @@ -82,8 +82,7 @@ occurAnalysePgm this_mod active_unf active_rule imp_rules binds = occ_anald_binds | otherwise -- See Note [Glomming] - = warnPprTrace True (hang (text "Glomming in" <+> ppr this_mod <> colon) - 2 (ppr final_usage)) + = warnPprTrace True "Glomming in" (hang (ppr this_mod <> colon) 2 (ppr final_usage)) occ_anald_glommed_binds where init_env = initOccEnv { occ_rule_act = active_rule @@ -3131,7 +3130,7 @@ decideJoinPointHood TopLevel _ _ decideJoinPointHood NotTopLevel usage bndrs | isJoinId (head bndrs) = warnPprTrace (not all_ok) - (text "OccurAnal failed to rediscover join point(s):" <+> ppr bndrs) + "OccurAnal failed to rediscover join point(s)" (ppr bndrs) all_ok | otherwise = all_ok |