X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscStats.lhs;h=e4e8ac560c679f9819ec965d60156fd9c97a1bc4;hp=750744af441abaa621f68231a06b6b46079b5ff5;hb=afef39736dcde6f4947a6f362f9e6b3586933db4;hpb=3cec5683766a13019c2835a4e79cc7e7dc066b96

diff --git a/compiler/main/HscStats.lhs b/compiler/main/HscStats.lhs
index 750744a..e4e8ac5 100644
--- a/compiler/main/HscStats.lhs
+++ b/compiler/main/HscStats.lhs
@@ -132,7 +132,7 @@ ppSourceStats short (L _ (HsModule _ exports imports ldecls _))
 	       (classops, addpr (foldr add2 (0,0) (map (count_bind.unLoc) (bagToList (tcdMeths decl)))))
     class_info other = (0,0)
 
-    inst_info (InstDecl _ inst_meths inst_sigs)
+    inst_info (InstDecl _ inst_meths inst_sigs _)  -- !!!TODO: ATs info -=chak
 	= case count_sigs (map unLoc inst_sigs) of
 	    (_,_,ss,is) ->
 	       (addpr (foldr add2 (0,0) (map (count_bind.unLoc) (bagToList inst_meths))), ss, is)