Simon Peyton Jones pushed to branch wip/T27737 at Glasgow Haskell Compiler / GHC
Commits:
-
66b289eb
by Simon Peyton Jones at 2026-10-05T22:53:00+01:00
1 changed file:
Changes:
| ... | ... | @@ -1716,7 +1716,7 @@ exprIsConApp_maybe ise@(ISE in_scope id_unf) expr |
| 1716 | 1716 | |
| 1717 | 1717 | subst_bndr (Left in_scope) bndr
|
| 1718 | 1718 | | bndr `elemInScopeSet` in_scope = subst_bndr1 (mkEmptySubst in_scope) bndr
|
| 1719 | - | otherwise = (Left in_scope, bndr)
|
|
| 1719 | + | otherwise = (Left (in_scope `extendInScopeSet` bndr), bndr)
|
|
| 1720 | 1720 | subst_bndr (Right subst) bndr = subst_bndr1 subst bndr
|
| 1721 | 1721 | |
| 1722 | 1722 | subst_bndr1 subst bndr
|