diff options
| author | doyougnu <jeffrey.young@iohk.io> | 2023-01-10 16:16:31 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-04-01 09:42:31 -0400 |
| commit | 3b5be05ac29e2ec033e108e15f052f2a13898f24 (patch) | |
| tree | 90e35651a8a977374af3b5c78c7c944ca1bfee0b /compiler/GHC/Iface | |
| parent | 77c33fb924d75f502e275c7afbf157e6d963abf4 (diff) | |
| download | haskell-3b5be05ac29e2ec033e108e15f052f2a13898f24.tar.gz | |
driver: Unit State Data.Map -> GHC.Unique.UniqMap
In pursuit of #22426. The driver and unit state are major contributors.
This commit also bumps the haddock submodule to reflect the API changes in
UniqMap.
-------------------------
Metric Decrease:
MultiComponentModules
MultiComponentModulesRecomp
T10421
T10547
T12150
T12234
T12425
T13035
T16875
T18140
T18304
T18698a
T18698b
T18923
T20049
T5837
T6048
T9198
-------------------------
Diffstat (limited to 'compiler/GHC/Iface')
| -rw-r--r-- | compiler/GHC/Iface/Recomp.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/GHC/Iface/Recomp.hs b/compiler/GHC/Iface/Recomp.hs index ec587318f4..2e1150910b 100644 --- a/compiler/GHC/Iface/Recomp.hs +++ b/compiler/GHC/Iface/Recomp.hs @@ -58,6 +58,7 @@ import GHC.Types.Name.Set import GHC.Types.SrcLoc import GHC.Types.Unique.Set import GHC.Types.Fixity.Env +import GHC.Types.Unique.Map import GHC.Unit.External import GHC.Unit.Finder import GHC.Unit.State @@ -558,8 +559,8 @@ checkMergedSignatures hsc_env mod_summary iface = do let logger = hsc_logger hsc_env let unit_state = hsc_units hsc_env let old_merged = sort [ mod | UsageMergedRequirement{ usg_mod = mod } <- mi_usages iface ] - new_merged = case Map.lookup (ms_mod_name mod_summary) - (requirementContext unit_state) of + new_merged = case lookupUniqMap (requirementContext unit_state) + (ms_mod_name mod_summary) of Nothing -> [] Just r -> sort $ map (instModuleToModule unit_state) r if old_merged == new_merged |