X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghctags%2FMain.hs;h=c86a92a226154ba5628e631e4ce2aebc1824057f;hb=a1fae73a83665d7b9134509e80d34ff69a009cc7;hp=b3ed58f327efe20f1e34651c3ccaaa7d784c7cf6;hpb=bfa0c2ed1e4cd07c7934901520cb04db6b79cd9d;p=ghc-hetmet.git

diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs
index b3ed58f..c86a92a 100644
--- a/utils/ghctags/Main.hs
+++ b/utils/ghctags/Main.hs
@@ -293,7 +293,6 @@ boundThings modname lbinding =
                LitPat _ -> tl
                NPat _ _ _ -> tl -- form of literal pattern?
                NPlusKPat id _ _ _ -> thing id : tl
-               TypePat _ -> tl -- XXX need help here
                SigPatIn p _ -> patThings p tl
                SigPatOut p _ -> patThings p tl
                _ -> error "boundThings"