X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=22aa3f4f047a4ffe5ac211a706438e775193fc17;hp=493466b612615b77cc90b26dffb10f374a9d074f;hb=8f212ab5307434edf92c7d10fe0df88ccb5cd6ca;hpb=99e9c36b2df186dc28c946517579487373d8659a

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index 493466b..22aa3f4 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -1036,7 +1036,9 @@ implicitTyThings (ADataCon dc)  = map AnId (dataConImplicitIds dc)
     
 implicitClassThings :: Class -> [TyThing]
 implicitClassThings cl 
-  = -- dictionary datatype:
+  = -- Does not include default methods, because those Ids may have
+    --    their own pragmas, unfoldings etc, not derived from the Class object
+    -- Dictionary datatype:
     --    [extras_plus:]
     --      type constructor 
     --    [recursive call:]