Wolfgang Jeltsch pushed to branch wip/jeltsch/improve-closure-property-check at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Driver/Downsweep.hs
    ... ... @@ -970,8 +970,8 @@ checkHomeUnitsClosed unit_env
    970 970
       --   by the pair of the 'UnitId' of /u/ and the 'UnitId' of /v/.
    
    971 971
       offenders :: [(UnitId, UnitId)]
    
    972 972
       offenders
    
    973
    -    = evalState (collect (map (homeUnitEnv_units . snd) home_unit_data)) $
    
    974
    -      Set.empty
    
    973
    +    = evalState (collect (map (homeUnitEnv_units . snd) home_unit_data))
    
    974
    +                Set.empty
    
    975 975
         where
    
    976 976
     
    
    977 977
         -- | Collects offending dependencies.