diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2022-07-25 17:05:44 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-07-26 16:27:28 -0400 |
| commit | 9ea29d47bbeac7abf54c9c05d105bb6f21d4c083 (patch) | |
| tree | db6991709ac612d2343e3fbe672d274ac0858d16 /compiler/GHC | |
| parent | 42147534320f9ac22f16ffc226148ae553337d2e (diff) | |
| download | haskell-9ea29d47bbeac7abf54c9c05d105bb6f21d4c083.tar.gz | |
Regression test for #21848
Diffstat (limited to 'compiler/GHC')
| -rw-r--r-- | compiler/GHC/Iface/Tidy.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Tidy.hs b/compiler/GHC/Iface/Tidy.hs index 84477bc793..f395c0daa8 100644 --- a/compiler/GHC/Iface/Tidy.hs +++ b/compiler/GHC/Iface/Tidy.hs @@ -1021,7 +1021,7 @@ findExternalRules opts binds imp_id_rules unfold_env = ([], emptyVarSet, imp_user_rule_fvs, imp_rules) trim_binds (bind:binds) - | any needed bndrs -- Keep binding + | any needed bndrs -- Keep this binding = ( bind : binds', bndr_set', needed_fvs', local_rules ++ rules ) | otherwise -- Discard binding altogether = stuff |