From a2e5ab705dada18a88d8594b299c9950da50adb0 Mon Sep 17 00:00:00 2001 From: Andreas Klebinger Date: Wed, 13 Apr 2022 11:37:45 +0200 Subject: Change `-dsuppress-ticks` to only suppress non-code 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. --- compiler/GHC/Core/Ppr.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'compiler/GHC') 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) -- cgit v1.2.1