@@ -10,9 +10,9 @@ tags = concatMap dtags . P.exportedDeclarations
10 dtags _ = []
10 dtags _ = []
11 names (P.DataDeclaration _ name _ dcons) = P.runProperName name : consNames
11 names (P.DataDeclaration _ name _ dcons) = P.runProperName name : consNames
12 where consNames = map (\(cname, _) -> P.runProperName cname) dcons
12 where consNames = map (\(cname, _) -> P.runProperName cname) dcons
13− names (P.TypeDeclaration ident _) = [show ident]
13+ names (P.TypeDeclaration ident _) = [P.showIdent ident]
14− names (P.ExternDeclaration ident _) = [show ident]
14+ names (P.ExternDeclaration ident _) = [P.showIdent ident]
15 names (P.TypeSynonymDeclaration name _ _) = [P.runProperName name]
15 names (P.TypeSynonymDeclaration name _ _) = [P.runProperName name]
16 names (P.TypeClassDeclaration name _ _ _) = [P.runProperName name]
16 names (P.TypeClassDeclaration name _ _ _) = [P.runProperName name]
17− names (P.TypeInstanceDeclaration name _ _ _ _) = [show name]
17+ names (P.TypeInstanceDeclaration name _ _ _ _) = [P.showIdent name]
18 names _ = []
18 names _ = []