Skip to content
Snippets Groups Projects
Commit 1a98d673 authored by Sebastian Graf's avatar Sebastian Graf Committed by Marge Bot
Browse files

Cleanup a TODO introduced in 1f94e0f7

The change must have slipped through review of !4412
parent 6eab07b2
No related branches found
No related tags found
No related merge requests found
......@@ -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]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment