diff options
| author | simonpj <unknown> | 2002-09-13 08:54:44 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2002-09-13 08:54:44 +0000 |
| commit | 7e2009cf9778956a1ffe4a5757344feaa15d34d5 (patch) | |
| tree | ecb6d9a42f86c5df130f97335c374e39cfe7eccc | |
| parent | c10975a19302488acbcc1c2699c9caec148ba670 (diff) | |
| download | haskell-7e2009cf9778956a1ffe4a5757344feaa15d34d5.tar.gz | |
[project @ 2002-09-13 08:54:44 by simonpj]
Correct comments
| -rw-r--r-- | ghc/compiler/rename/RnExpr.lhs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs index 3992a6495d..f48d7326b8 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 |