diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-11-04 18:39:46 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-11-05 14:26:32 -0400 |
| commit | 8be05be5b3215b4666253baf3afd2a3b8a27a0cc (patch) | |
| tree | e516cc49ea12f8a39b315327946faef80f40b95b /utils/hpc/HpcOverlay.hs | |
| parent | 004e86c38b8ba9380bfc58341d04d11f73b53a1a (diff) | |
| download | haskell-wip/coverage.tar.gz | |
hpc: Use IntMap rather than Listwip/coverage
Diffstat (limited to 'utils/hpc/HpcOverlay.hs')
| -rw-r--r-- | utils/hpc/HpcOverlay.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/hpc/HpcOverlay.hs b/utils/hpc/HpcOverlay.hs index b303b2cfec..5424c10faf 100644 --- a/utils/hpc/HpcOverlay.hs +++ b/utils/hpc/HpcOverlay.hs @@ -133,7 +133,7 @@ processModule modName modContents (Mix _ _ hash _ entries) locals globals = do | n <- [0..(length entries - 1)] ] - return $ TixModule modName hash (length tixs') tixs' + return $ TixModule modName hash (tickCountsFromList (length entries) tixs') qualifier :: HpcPos -> Maybe Qualifier -> Bool qualifier _ Nothing = True |