Patrick pushed to branch wip/T26118-remove-hptallfaminstances-usage-during-upsweep at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Driver/Env.hs
    ... ... @@ -240,7 +240,7 @@ hugFamInstancesBelow = hugSomeThingsBelowUs' combine emptyModuleEnv False
    240 240
         combine md acc = do
    
    241 241
           let famInstEnv = hmiFamInstEnv md
    
    242 242
               mod = hmiModule md
    
    243
    -       in extendModuleEnv acc mod famInstEnv
    
    243
    +       in extendModuleEnvWith unionFamInstEnv acc mod famInstEnv
    
    244 244
     
    
    245 245
     -- | Find all COMPLETE pragmas in modules that are in the transitive closure of the
    
    246 246
     -- given module.