[commit: ghc] master: Follow changes to HsPat (6518ebe)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6518ebe334a1afc6d585dfe1841bb629df83b607

>---------------------------------------------------------------

commit 6518ebe334a1afc6d585dfe1841bb629df83b607
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Feb 14 13:04:30 2013 +0000

    Follow changes to HsPat

>---------------------------------------------------------------

 utils/ghctags/Main.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs
index 07fd572..514f299 100644
--- a/utils/ghctags/Main.hs
+++ b/utils/ghctags/Main.hs
@@ -292,7 +292,7 @@ boundThings modname lbinding =
                AsPat id p -> patThings p (thing id : tl)
                ParPat p -> patThings p tl
                BangPat p -> patThings p tl
-               ListPat ps _ -> foldr patThings tl ps
+               ListPat ps _ _ -> foldr patThings tl ps
                TuplePat ps _ _ -> foldr patThings tl ps
                PArrPat ps _ -> foldr patThings tl ps
                ConPatIn _ conargs -> conArgs conargs tl