diff options
| author | simonpj@microsoft.com <unknown> | 2010-03-09 17:31:20 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-03-09 17:31:20 +0000 |
| commit | 4d4c860c6e82118f760d0debdece55114543158f (patch) | |
| tree | ee8bc3db5cf6cf7a766907f4a14f0df383e79c62 | |
| parent | 81e41fe31fb27b6330762d93ce90eb98899beb24 (diff) | |
| download | haskell-4d4c860c6e82118f760d0debdece55114543158f.tar.gz | |
Add comment
| -rw-r--r-- | compiler/rename/RnExpr.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index 78088d52ce..d1984f88ce 100644 --- a/compiler/rename/RnExpr.lhs +++ b/compiler/rename/RnExpr.lhs @@ -780,6 +780,7 @@ rnStmt ctxt (L loc (GroupStmt stmts _ by using)) thing_inside ; let all_fvs = fvs1 `plusFV` fvs2 bndr_map = used_bndrs `zip` used_bndrs + -- See Note [GroupStmt binder map] in HsExpr ; traceRn (text "rnStmt: implicitly rebound these used binders:" <+> ppr bndr_map) ; return (([L loc (GroupStmt stmts' bndr_map by' using')], thing), all_fvs) } |