diff options
Diffstat (limited to 'compiler/stgSyn/StgSyn.hs')
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index 93b6e76264..15181f3e5d 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -766,9 +766,9 @@ pprStgExpr (StgLetNoEscape bind expr) pprStgExpr (StgTick tickish expr) = sdocWithDynFlags $ \dflags -> - if gopt Opt_PprShowTicks dflags - then sep [ ppr tickish, pprStgExpr expr ] - else pprStgExpr expr + if gopt Opt_SuppressTicks dflags + then pprStgExpr expr + else sep [ ppr tickish, pprStgExpr expr ] pprStgExpr (StgCase expr bndr alt_type alts) |