From 1a98d6732588858f470e9696f0bfbce362a775e5 Mon Sep 17 00:00:00 2001
From: Sebastian Graf <sebastian.graf@kit.edu>
Date: Wed, 26 Apr 2023 16:43:40 +0200
Subject: [PATCH] Cleanup a TODO introduced in 1f94e0f7
The change must have slipped through review of !4412
---
compiler/GHC/Stg/Syntax.hs | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/compiler/GHC/Stg/Syntax.hs b/compiler/GHC/Stg/Syntax.hs
index 49a3de160969..7c84ae1bbb18 100644
--- a/compiler/GHC/Stg/Syntax.hs
+++ b/compiler/GHC/Stg/Syntax.hs
@@ -880,10 +880,9 @@ pprStgExpr opts e = case e of
, hang (text "} in ") 2 (pprStgExpr opts expr)
]
- StgTick _tickish expr -> sdocOption sdocSuppressTicks $ \case
+ StgTick tickish expr -> sdocOption sdocSuppressTicks $ \case
True -> pprStgExpr opts expr
- False -> pprStgExpr opts expr
- -- XXX sep [ ppr tickish, pprStgExpr opts expr ]
+ False -> sep [ ppr tickish, pprStgExpr opts expr ]
-- Don't indent for a single case alternative.
StgCase expr bndr alt_type [alt]
--
GitLab