diff options
Diffstat (limited to 'compiler/GHC/Core')
| -rw-r--r-- | compiler/GHC/Core/FVs.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Core/Subst.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/FVs.hs b/compiler/GHC/Core/FVs.hs index 6451eab75e..65b654356e 100644 --- a/compiler/GHC/Core/FVs.hs +++ b/compiler/GHC/Core/FVs.hs @@ -36,7 +36,7 @@ module GHC.Core.FVs ( ruleLhsFreeIds, ruleLhsFreeIdsList, ruleRhsFreeVars, rulesRhsFreeIds, - expr_fvs, + exprFVs, -- * Orphan names orphNamesOfType, orphNamesOfCo, orphNamesOfAxiom, diff --git a/compiler/GHC/Core/Subst.hs b/compiler/GHC/Core/Subst.hs index 5d8cd11758..4f87e5ad8e 100644 --- a/compiler/GHC/Core/Subst.hs +++ b/compiler/GHC/Core/Subst.hs @@ -577,7 +577,7 @@ substDVarSet subst@(Subst _ _ tv_env cv_env) fvs = tyCoFVsOfCo fv_co (const True) emptyVarSet $! acc | otherwise , let fv_expr = lookupIdSubst subst fv - = expr_fvs fv_expr isLocalVar emptyVarSet $! acc + = exprFVs fv_expr (const True) emptyVarSet $! acc ------------------ substTickish :: Subst -> CoreTickish -> CoreTickish |