X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghctags%2FMain.hs;h=9093e032e9362465cdd08bb51e9ee117a32ccbe4;hb=4c9154facefe185dcbb99e2bb1cfe118f02f8bd3;hp=9017bd045b78ea33cf969b06c1ee91b24f5dab6a;hpb=0ca48da78f669b18a574dc18e8b20b5393526b1d;p=ghc-hetmet.git

diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs
index 9017bd0..9093e03 100644
--- a/utils/ghctags/Main.hs
+++ b/utils/ghctags/Main.hs
@@ -251,7 +251,7 @@ boundValues mod group =
                        , bind <- bagToList binds
                        , x <- boundThings mod bind ]
                _other -> error "boundValues"
-      tys = [ n | ns <- map (tyClDeclNames . unLoc) (hs_tyclds group)
+      tys = [ n | ns <- map hsTyClDeclBinders (hs_tyclds group)
                 , n <- map found ns ]
       fors = concat $ map forBound (hs_fords group)
              where forBound lford = case unLoc lford of