diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-05-09 09:23:36 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-09 16:26:36 -0400 |
| commit | a4fbb589fd176e6c2f6648dea6c93e25668f1db8 (patch) | |
| tree | b6e38fe2eb982307f07a8d68aeb7d39b11651c58 /compiler | |
| parent | 158bd65984245a1a563c747e7d5afd1b03d82a1d (diff) | |
| download | haskell-a4fbb589fd176e6c2f6648dea6c93e25668f1db8.tar.gz | |
STG: only print cost-center if asked to
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Stg/Syntax.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Stg/Syntax.hs b/compiler/GHC/Stg/Syntax.hs index 779ddf8d56..4956920fb1 100644 --- a/compiler/GHC/Stg/Syntax.hs +++ b/compiler/GHC/Stg/Syntax.hs @@ -871,7 +871,7 @@ pprStgRhs opts rhs = case rhs of 4 (pprStgExpr opts body) StgRhsCon cc con mid _ticks args - -> hcat [ ppr cc, space + -> hcat [ if stgSccEnabled opts then ppr cc <> space else empty , case mid of NoNumber -> empty Numbered n -> hcat [ppr n, space] |