From: simonpj@microsoft.com <unknown>
Date: Fri, 12 Nov 2010 23:07:01 +0000 (+0000)
Subject: Remove use of (now-gone) VarPatOut
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e3e12b2a298abf61299a536929307131e07128b7;p=ghc-hetmet.git

Remove use of (now-gone) VarPatOut
---

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