X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghctags%2FMain.hs;h=118bcac0be4646977dee3e65dd895a9c5042e35c;hb=f14f1daa67546643b49902c56829d13ec641f21c;hp=07787841bb1535c062cb7925682bcbb94fde531b;hpb=2493b18037055a5c284563d10931386e589a79b0;p=ghc-hetmet.git

diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs
index 0778784..118bcac 100644
--- a/utils/ghctags/Main.hs
+++ b/utils/ghctags/Main.hs
@@ -280,7 +280,6 @@ boundThings modname lbinding =
           in case unLoc lpat of
                WildPat _ -> tl
                VarPat name -> lid name : tl
-               VarPatOut name _ -> lid name : tl -- XXX need help here
                LazyPat p -> patThings p tl
                AsPat id p -> patThings p (thing id : tl)
                ParPat p -> patThings p tl