Simon Peyton Jones pushed to branch wip/T26989 at Glasgow Haskell Compiler / GHC
Commits:
-
21f61eae
by Simon Peyton Jones at 2026-03-16T17:44:46+00:00
1 changed file:
Changes:
| ... | ... | @@ -731,8 +731,9 @@ matchRule _ ise is_active _ target_args rough_args |
| 731 | 731 | , not (ruleCantMatch tpl_tops rough_args)
|
| 732 | 732 | , Just (bind_wrapper, matched_es) <- matchExprs ise tpl_vars tpl_args target_args
|
| 733 | 733 | = Just (bind_wrapper $
|
| 734 | - mkLets [NonRec b e | (b,e) <- zip tpl_vars matched_es] $
|
|
| 735 | - rhs )
|
|
| 734 | +-- mkLets [NonRec b e | (b,e) <- zip tpl_vars matched_es] $
|
|
| 735 | +-- rhs
|
|
| 736 | + mkLams tpl_vars rhs `mkApps` matched_es )
|
|
| 736 | 737 | | otherwise
|
| 737 | 738 | = Nothing
|
| 738 | 739 |