Commit 7e2009cf authored by simonpj's avatar simonpj

[project @ 2002-09-13 08:54:44 by simonpj]

Correct comments
parent c10975a1
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment