X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsUtils.lhs;h=d9c45e6529c177edea88066958f869a35576627a;hb=5d3051c66796dcf884b052f9e4afc3ed19b9f514;hp=df4885fb6b533b5ae4951a2042dd12264fc8a3ec;hpb=04feba252e40d16101b92948cd1e13c7bc1f3062;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsUtils.lhs b/ghc/compiler/hsSyn/HsUtils.lhs
index df4885f..d9c45e6 100644
--- a/ghc/compiler/hsSyn/HsUtils.lhs
+++ b/ghc/compiler/hsSyn/HsUtils.lhs
@@ -376,6 +376,7 @@ collectl (L l pat) bndrs
 				    ++ bndrs
     go (WildPat _)	      	  = bndrs
     go (LazyPat pat)     	  = collectl pat bndrs
+    go (BangPat pat)     	  = collectl pat bndrs
     go (AsPat a pat)     	  = a : collectl pat bndrs
     go (ParPat  pat)     	  = collectl pat bndrs
 				  
@@ -411,11 +412,12 @@ collect_pat (SigPatIn pat ty)  	acc = collect_lpat pat (ty:acc)
 collect_pat (TypePat ty)       	acc = ty:acc
 
 collect_pat (LazyPat pat)      	acc = collect_lpat pat acc
+collect_pat (BangPat pat)      	acc = collect_lpat pat acc
 collect_pat (AsPat a pat)      	acc = collect_lpat pat acc
 collect_pat (ParPat  pat)      	acc = collect_lpat pat acc
 collect_pat (ListPat pats _)   	acc = foldr collect_lpat acc pats
 collect_pat (PArrPat pats _)   	acc = foldr collect_lpat acc pats
 collect_pat (TuplePat pats _ _) acc = foldr collect_lpat acc pats
-collect_pat (ConPatIn c ps)    	acc = foldr collect_lpat acc (hsConArgs ps)
-collect_pat other	       	acc = acc 	-- Literals, vars, wildcard
+collect_pat (ConPatIn c ps)     acc = foldr collect_lpat acc (hsConArgs ps)
+collect_pat other	        acc = acc 	-- Literals, vars, wildcard
 \end{code}