| otherwise = noLoc $ LazyPat (noLoc $ TuplePat (map nlVarPat vars) Boxed)
body = noLoc $ HsDo DoExpr (stmts ++ [return_stmt])
- [(n, nlHsVar id) | (n,id) <- ds_meths] -- A bit of a hack
+ [(n, HsVar id) | (n,id) <- ds_meths] -- A bit of a hack
(mkAppTy m_ty tup_ty)
Var return_id = lookupReboundName ds_meths returnMName