-tcDoStmts ctxt@(MDoExpr _) stmts body res_ty
- = do { (coi, (m_ty, elt_ty)) <- matchExpectedAppTy res_ty
- ; let res_ty' = mkAppTy m_ty elt_ty -- The matchExpected consumes res_ty
- tc_rhs rhs = tcInfer $ \ pat_ty ->
- tcMonoExpr rhs (mkAppTy m_ty pat_ty)
-
- ; (stmts', body') <- tcStmts ctxt (tcMDoStmt tc_rhs) stmts res_ty' $
+tcDoStmts MDoExpr stmts body res_ty
+ = do { (stmts', body') <- tcStmts MDoExpr tcDoStmt stmts res_ty $