diff options
Diffstat (limited to 'compiler/coreSyn/PprCore.hs')
| -rw-r--r-- | compiler/coreSyn/PprCore.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/coreSyn/PprCore.hs b/compiler/coreSyn/PprCore.hs index a8dc2179a1..994c237529 100644 --- a/compiler/coreSyn/PprCore.hs +++ b/compiler/coreSyn/PprCore.hs @@ -274,9 +274,9 @@ ppr_expr add_par (Let bind expr) ppr_expr add_par (Tick tickish expr) = sdocWithDynFlags $ \dflags -> - if gopt Opt_PprShowTicks dflags - then add_par (sep [ppr tickish, pprCoreExpr expr]) - else ppr_expr add_par expr + if gopt Opt_SuppressTicks dflags + then ppr_expr add_par expr + else add_par (sep [ppr tickish, pprCoreExpr expr]) pprCoreAlt :: OutputableBndr a => (AltCon, [a] , Expr a) -> SDoc pprCoreAlt (con, args, rhs) |