diff options
Diffstat (limited to 'compiler/GHC/Core/Ppr.hs')
| -rw-r--r-- | compiler/GHC/Core/Ppr.hs | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/compiler/GHC/Core/Ppr.hs b/compiler/GHC/Core/Ppr.hs index f1791dfebf..1bee1c58a5 100644 --- a/compiler/GHC/Core/Ppr.hs +++ b/compiler/GHC/Core/Ppr.hs @@ -32,6 +32,7 @@ import GHC.Core.Stats (exprStats) import GHC.Types.Literal( pprLiteral ) import GHC.Types.Name( pprInfixName, pprPrefixName ) import GHC.Types.Var +import GHC.Types.Var.Env( isEmptyVarEnv ) import GHC.Types.Id import GHC.Types.Id.Info import GHC.Types.Demand @@ -582,11 +583,13 @@ instance Outputable UnfoldingGuidance where parens (text "arity=" <> int arity <> comma <> text "unsat_ok=" <> ppr unsat_ok <> comma <> text "boring_ok=" <> ppr boring_ok) - ppr (UnfIfGoodArgs { ug_args = cs, ug_size = size, ug_res = discount }) - = hsep [ text "IF_ARGS", - brackets (hsep (map int cs)), - int size, - int discount ] + ppr (UnfIfGoodArgs { ug_args = cs, ug_fvs = fvs + , ug_size = size, ug_res = discount }) + = hsep [ text "IF_ARGS" + , brackets (hsep (map int cs)) + , if isEmptyVarEnv fvs then empty else ppr fvs + , int size + , int discount ] instance Outputable UnfoldingSource where ppr InlineCompulsory = text "Compulsory" |