@@ -10,9 +10,9 @@ tags = concatMap dtags . P.exportedDeclarations
1010 dtags _ = []
1111 names (P.DataDeclaration _ name _ dcons) = P.runProperName name : consNames
1212 where consNames = map (\(cname, _) -> P.runProperName cname) dcons
13− names (P.TypeDeclaration ident _) = [show ident]
14− names (P.ExternDeclaration ident _) = [show ident]
13+ names (P.TypeDeclaration ident _) = [P.showIdent ident]
14+ names (P.ExternDeclaration ident _) = [P.showIdent ident]
1515 names (P.TypeSynonymDeclaration name _ _) = [P.runProperName name]
1616 names (P.TypeClassDeclaration name _ _ _) = [P.runProperName name]
17− names (P.TypeInstanceDeclaration name _ _ _ _) = [show name]
17+ names (P.TypeInstanceDeclaration name _ _ _ _) = [P.showIdent name]
1818 names _ = []