From: Ian Lynagh <igloo@earth.li>
Date: Wed, 13 Feb 2008 16:11:06 +0000 (+0000)
Subject: Document code a bit better
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bcbdcc2b6cdb98312593d938aeb667e9a161e98a;p=ghc-hetmet.git

Document code a bit better
---

diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs
index 458ebf4..3697819 100644
--- a/compiler/parser/RdrHsSyn.lhs
+++ b/compiler/parser/RdrHsSyn.lhs
@@ -515,7 +515,9 @@ checkTyClHdr (L l cxt) ty
 extractTyVars :: [LHsType RdrName] -> P [LHsTyVarBndr RdrName]
 extractTyVars tvs = collects tvs []
   where
-        -- Collect all variables (1st arg serves as an accumulator)
+        -- Collect all variables (2nd arg serves as an accumulator)
+    collect :: LHsType RdrName -> [LHsTyVarBndr RdrName]
+                               -> P [LHsTyVarBndr RdrName]
     collect (L l (HsForAllTy _ _ _ _)) =
       const $ parseError l "Forall type not allowed as type parameter"
     collect (L l (HsTyVar tv))