summaryrefslogtreecommitdiff
path: root/compiler/GHC/Cmm/CommonBlockElim.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Cmm/CommonBlockElim.hs')
-rw-r--r--compiler/GHC/Cmm/CommonBlockElim.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/CommonBlockElim.hs b/compiler/GHC/Cmm/CommonBlockElim.hs
index d88745ad21..ffb4562c40 100644
--- a/compiler/GHC/Cmm/CommonBlockElim.hs
+++ b/compiler/GHC/Cmm/CommonBlockElim.hs
@@ -301,7 +301,7 @@ copyTicks env g
foldr blockCons code (map CmmTick ticks)
-- Group by [Label]
--- See Note [Compressed TrieMap] in GHC.Core.Map about the usage of GenMap.
+-- See Note [Compressed TrieMap] in GHC.Core.Map.Expr about the usage of GenMap.
groupByLabel :: [(Key, DistinctBlocks)] -> [(Key, [DistinctBlocks])]
groupByLabel =
go (TM.emptyTM :: TM.ListMap (TM.GenMap LabelMap) (Key, [DistinctBlocks]))