[project @ 2000-11-08 14:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcTyClsDecls.lhs

diff --git a/ghc/compiler/typecheck/TcTyClsDecls.lhs b/ghc/compiler/typecheck/TcTyClsDecls.lhs
index 12bc8e9..785a569 100644 (file)
--- a/ghc/compiler/typecheck/TcTyClsDecls.lhs
+++ b/ghc/compiler/typecheck/TcTyClsDecls.lhs
@@ -408,6 +408,7 @@ Edges in Type/Class decls
 
 \begin{code}
 tyClDeclFTVs :: RenamedTyClDecl -> [Name]
+       -- Find the free non-tyvar vars
 tyClDeclFTVs d = foldNameSet add [] (tyClDeclFVs d)
               where
                 add n fvs | isTyVarName n = fvs