X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FGhciTags.hs;h=fc5cf00e4b03db6dfa9a1ed7029ce6747f225304;hb=cbebca1c9164a5e5ae9b117d0dcf5ad217defc6d;hp=c2e6973e1857ca5095ec4bc14752cda7e04fc4d4;hpb=acb9c929a4ab025972027b55b4c18d4410207d29;p=ghc-hetmet.git

diff --git a/ghc/GhciTags.hs b/ghc/GhciTags.hs
index c2e6973..fc5cf00 100644
--- a/ghc/GhciTags.hs
+++ b/ghc/GhciTags.hs
@@ -101,10 +101,11 @@ listModuleTags m = do
                      ]
 
   where
-    tyThing2TagKind (AnId _) = 'v'
+    tyThing2TagKind (AnId _)     = 'v'
     tyThing2TagKind (ADataCon _) = 'd'
-    tyThing2TagKind (ATyCon _) = 't'
-    tyThing2TagKind (AClass _) = 'c'
+    tyThing2TagKind (ATyCon _)   = 't'
+    tyThing2TagKind (AClass _)   = 'c'
+    tyThing2TagKind (ACoAxiom _) = 'x'
 
 
 data TagInfo = TagInfo