(inst_method_ds, method_specs, method_inlines)
= foldr add3 (0,0,0) (map inst_info inst_decls)
- count_bind (PatBind (L _ (VarPat n)) r) = (1,0)
- count_bind (PatBind p r) = (0,1)
- count_bind (FunBind f _ m) = (0,1)
+ count_bind (PatBind (L _ (VarPat n)) r _) = (1,0)
+ count_bind (PatBind p r _) = (0,1)
+ count_bind (FunBind f _ m) = (0,1)
count_sigs sigs = foldr add4 (0,0,0,0) (map sig_info sigs)
data_info (TyData {tcdCons = cs, tcdDerivs = derivs})
= (length cs, case derivs of Nothing -> 0
- Just ds -> length (unLoc ds))
+ Just ds -> length ds)
data_info other = (0,0)
class_info decl@(ClassDecl {})