Simon Peyton Jones pushed to branch wip/T20264 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Core/FVs.hs
    ... ... @@ -656,7 +656,7 @@ stableUnfoldingFVs unf
    656 656
       | otherwise             = Nothing
    
    657 657
     
    
    658 658
     unfoldingFVs :: Unfolding -> FV
    
    659
    -unfoldingFVs (CoreUnfolding { uf_tmpl = rhs, uf_src = src })
    
    659
    +unfoldingFVs (CoreUnfolding { uf_tmpl = rhs })
    
    660 660
       = exprFVs rhs
    
    661 661
     unfoldingFVs (DFunUnfolding { df_bndrs = bndrs, df_args = args })
    
    662 662
       = FV.delFVs (mkVarSet bndrs) $ exprsFVs args