X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Frename%2FRnPat.lhs;fp=compiler%2Frename%2FRnPat.lhs;h=813f39b8a1f06d73a2ba93f32ee2e43ca1050708;hb=f1cc3eb980a634e62f2739a7a25387c902fa9d8a;hp=bc174954787e022915dd776b2bb795f18bd47101;hpb=0a5613f40b0e32cf59966e6b56b807cdbe80aa7b;p=ghc-hetmet.git

diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index bc17495..813f39b 100644
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -233,7 +233,8 @@ rnPats ctxt pats thing_inside
 rnPat :: HsMatchContext Name -- for error messages
       -> LPat RdrName 
       -> (LPat Name -> RnM (a, FreeVars))
-      -> RnM (a, FreeVars)
+      -> RnM (a, FreeVars)     -- Variables bound by pattern do not 
+      	     	 	       -- appear in the result FreeVars 
 rnPat ctxt pat thing_inside 
   = rnPats ctxt [pat] (\[pat'] -> thing_inside pat')