diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-08-15 12:21:30 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-19 14:18:03 -0400 |
| commit | e5567289c576a76f62bd78bd823a824c7ca83de6 (patch) | |
| tree | a113771973d732844d74b8b75784bc2b2b4dfddc /compiler | |
| parent | 9789e8454ad9f315169063b344a56c4216c12711 (diff) | |
| download | haskell-e5567289c576a76f62bd78bd823a824c7ca83de6.tar.gz | |
Fix #22048 where we failed to drop rules for -fomit-interface-pragmas.
Now we also filter the local rules (again) which fixes the issue.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Iface/Tidy.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Tidy.hs b/compiler/GHC/Iface/Tidy.hs index 92e7e3c0df..a8529cbff7 100644 --- a/compiler/GHC/Iface/Tidy.hs +++ b/compiler/GHC/Iface/Tidy.hs @@ -1048,7 +1048,8 @@ findExternalRules opts binds imp_id_rules unfold_env -- In needed_fvs', we don't bother to delete binders from the fv set local_rules = [ rule - | id <- bndrs + | (opt_expose_rules opts) + , id <- bndrs , is_external_id id -- Only collect rules for external Ids , rule <- idCoreRules id , expose_rule rule ] -- and ones that can fire in a client |