Wolfgang Jeltsch pushed to branch wip/jeltsch/more-efficient-home-unit-imports-finding at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Unit/Module/Graph.hs
    ... ... @@ -226,11 +226,7 @@ mkHomeModuleMap nodes = ModuleNameHomeMap completeUnits providerMap where
    226 226
               ]
    
    227 227
     
    
    228 228
         completeUnits :: Set UnitId
    
    229
    -    completeUnits = Set.fromList $
    
    230
    -                    [
    
    231
    -                        moduleNodeInfoUnitId moduleNodeInfo |
    
    232
    -                            ModuleNode _ moduleNodeInfo <- nodes
    
    233
    -                    ]
    
    229
    +    completeUnits = Set.unions (Map.elems providerMap)
    
    234 230
     
    
    235 231
     mgHomeModuleMap :: ModuleGraph -> ModuleNameHomeMap
    
    236 232
     mgHomeModuleMap = mg_home_map