diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2022-11-17 15:15:55 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simon.peytonjones@gmail.com> | 2022-11-17 23:01:30 +0000 |
| commit | 143819010b69f00ac562a20543f6d0e96256c6cf (patch) | |
| tree | f9c9c5faad33e600439ba510ad1432bda072d220 /compiler/GHC/Core/Subst.hs | |
| parent | 37cfe3c0f4fb16189bbe3bb735f758cd6e3d9157 (diff) | |
| download | haskell-wip/T22471.tar.gz | |
Be more careful when reporting unbound RULE binderswip/T22471
See Note [Variables unbound on the LHS] in GHC.HsToCore.Binds.
Fixes #22471.
Diffstat (limited to 'compiler/GHC/Core/Subst.hs')
| -rw-r--r-- | compiler/GHC/Core/Subst.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |