[project @ 2003-01-13 17:01:22 by simonpj]

[ghc-hetmet.git] / ghc / compiler / types / Class.lhs

diff --git a/ghc/compiler/types/Class.lhs b/ghc/compiler/types/Class.lhs
index 6aced85..3a37d16 100644 (file)
--- a/ghc/compiler/types/Class.lhs
+++ b/ghc/compiler/types/Class.lhs
@@ -63,6 +63,7 @@ type ClassOpItem = (Id, DefMeth Name)
 
 data DefMeth id = NoDefMeth            -- No default method
                | DefMeth id            -- A polymorphic default method (named id)
+                                       --      (Only instantiated to RdrName and Name, never Id)
                | GenDefMeth            -- A generic default method
                 deriving Eq  
 \end{code}