Remove use of (now-gone) VarPatOut
authorsimonpj@microsoft.com <unknown>
Fri, 12 Nov 2010 23:07:01 +0000 (23:07 +0000)
committersimonpj@microsoft.com <unknown>
Fri, 12 Nov 2010 23:07:01 +0000 (23:07 +0000)
utils/ghctags/Main.hs

index 0778784..118bcac 100644 (file)
@@ -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