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/Finder.hs
    ... ... @@ -274,7 +274,7 @@ sortHomeUnitsByLikelihoodFor home_module_name_providers_map mb_home_unit_id mod_
    274 274
           maybe cached_providing_deps (\u -> Set.delete u cached_providing_deps) mb_home_unit_id
    
    275 275
         uncached_providing_deps =
    
    276 276
           let candidates = Set.difference hpt_deps cached_module_providers
    
    277
    -          excluded = maybe cached_providing_deps (\u -> Set.insert u cached_providing_deps) mb_home_unit_id
    
    277
    +          excluded = maybe Set.empty Set.singleton mb_home_unit_id
    
    278 278
           in Set.toList (Set.difference candidates excluded)
    
    279 279
     
    
    280 280
         all_deps = other_cached_providing_deps ++ uncached_providing_deps