diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-04-13 11:37:45 +0200 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-04-21 08:29:34 +0000 |
| commit | ca5412a28cc2062660993bd3a1e20bcfacc365ac (patch) | |
| tree | b024932f234ebbb4d3a83d66131189f92082451d | |
| parent | 0c02c9199c26bebde17cd0afd378802c6d622a88 (diff) | |
| download | haskell-wip/andreask/suppress-ticks.tar.gz | |
Change `-dsuppress-ticks` to only suppress non-code ticks.wip/andreask/suppress-ticks
This means cost centres and coverage ticks will still be present in
output. Makes using -dsuppress-all more convenient when looking at
profiled builds.
| -rw-r--r-- | compiler/GHC/Core/Ppr.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Ppr.hs b/compiler/GHC/Core/Ppr.hs index 816af025fc..3f22e17bbe 100644 --- a/compiler/GHC/Core/Ppr.hs +++ b/compiler/GHC/Core/Ppr.hs @@ -311,8 +311,10 @@ ppr_expr add_par (Let bind expr) ppr_expr add_par (Tick tickish expr) = sdocOption sdocSuppressTicks $ \case - True -> ppr_expr add_par expr - False -> add_par (sep [ppr tickish, pprCoreExpr expr]) + -- Only hide non-runtime relevant ticks. + True + | not (tickishIsCode tickish) -> ppr_expr add_par expr + _ -> add_par (sep [ppr tickish, pprCoreExpr expr]) pprCoreAlt :: OutputableBndr a => Alt a -> SDoc pprCoreAlt (Alt con args rhs) |