diff options
| -rw-r--r-- | compiler/GHC/Stg/Syntax.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_run/T21052.stdout | 4 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/noinline01.stderr | 7 | ||||
| -rw-r--r-- | testsuite/tests/simplStg/should_compile/T19717.stderr | 4 |
4 files changed, 9 insertions, 8 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] diff --git a/testsuite/tests/ghci/should_run/T21052.stdout b/testsuite/tests/ghci/should_run/T21052.stdout index 1fee75de62..7de5eaf6ca 100644 --- a/testsuite/tests/ghci/should_run/T21052.stdout +++ b/testsuite/tests/ghci/should_run/T21052.stdout @@ -6,5 +6,7 @@ BCO_toplevel :: GHC.Types.IO [()] let { sat :: [()] [LclId] = - CCCS :! [GHC.Tuple.() GHC.Types.[]]; + :! [GHC.Tuple.() GHC.Types.[]]; } in GHC.Base.returnIO sat; + + diff --git a/testsuite/tests/simplCore/should_compile/noinline01.stderr b/testsuite/tests/simplCore/should_compile/noinline01.stderr index ab74ee5680..cf7eb10902 100644 --- a/testsuite/tests/simplCore/should_compile/noinline01.stderr +++ b/testsuite/tests/simplCore/should_compile/noinline01.stderr @@ -15,7 +15,7 @@ Noinline01.$trModule4 :: GHC.Prim.Addr# Noinline01.$trModule3 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.TrNameS! [Noinline01.$trModule4]; + GHC.Types.TrNameS! [Noinline01.$trModule4]; Noinline01.$trModule2 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = @@ -23,11 +23,10 @@ Noinline01.$trModule2 :: GHC.Prim.Addr# Noinline01.$trModule1 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.TrNameS! [Noinline01.$trModule2]; + GHC.Types.TrNameS! [Noinline01.$trModule2]; Noinline01.$trModule :: GHC.Types.Module [GblId, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.Module! [Noinline01.$trModule3 - Noinline01.$trModule1]; + GHC.Types.Module! [Noinline01.$trModule3 Noinline01.$trModule1]; diff --git a/testsuite/tests/simplStg/should_compile/T19717.stderr b/testsuite/tests/simplStg/should_compile/T19717.stderr index f2aadf53a5..07a90c5706 100644 --- a/testsuite/tests/simplStg/should_compile/T19717.stderr +++ b/testsuite/tests/simplStg/should_compile/T19717.stderr @@ -8,11 +8,11 @@ Foo.f :: forall {a}. a -> [GHC.Maybe.Maybe a] let { sat [Occ=Once1] :: GHC.Maybe.Maybe a [LclId] = - CCCS GHC.Maybe.Just! [x1]; } in + GHC.Maybe.Just! [x1]; } in let { sat [Occ=Once1] :: [GHC.Maybe.Maybe a] [LclId] = - CCCS :! [sat GHC.Types.[]]; + :! [sat GHC.Types.[]]; } in : [sat sat]; }; |