- return (L loc (PatBind { pat_lhs = pat',
- pat_rhs = grhss,
- -- we temporarily store the pat's FVs here;
- -- gets updated to the FVs of the whole bind
- -- when doing the RHS below
- bind_fvs = pat'_fvs,
- -- these will get ignored in the next pass,
- -- when we rename the RHS
- pat_rhs_ty = pat_rhs_ty }))
-
-rnBindLHS name_maker _ (L loc (FunBind { fun_id = name@(L nameLoc _),
- fun_infix = inf,
- fun_matches = matches,
- fun_co_fn = fun_co_fn,
- fun_tick = fun_tick
- }))
+ return (L loc (bind { pat_lhs = pat', bind_fvs = pat'_fvs }))
+ -- We temporarily store the pat's FVs in bind_fvs;
+ -- gets updated to the FVs of the whole bind
+ -- when doing the RHS below
+
+rnBindLHS name_maker _ (L loc bind@(FunBind { fun_id = name@(L nameLoc _) }))