From 7e2009cf9778956a1ffe4a5757344feaa15d34d5 Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 13 Sep 2002 08:54:44 +0000 Subject: [PATCH] [project @ 2002-09-13 08:54:44 by simonpj] Correct comments --- ghc/compiler/rename/RnExpr.lhs | 2 -- 1 file changed, 2 deletions(-) diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs index 3992a64..f48d732 100644 --- a/ghc/compiler/rename/RnExpr.lhs +++ b/ghc/compiler/rename/RnExpr.lhs @@ -616,8 +616,6 @@ rnStmt :: RdrNameStmt -- The thing list of names returned is the list returned by the -- thing_inside, plus the binders of the arguments stmt --- Because of mutual recursion we have to pass in rnExpr. - rnStmt (ParStmt stmtss) thing_inside = mapFvRn rnStmts stmtss `thenRn` \ (bndrstmtss, fv_stmtss) -> let binderss = map fst bndrstmtss -- 1.7.10.4