X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=b31e0250852368133f4f0655eb21c38a4625ef21;hb=bb511e2deeb63e4b1a92b033283cd63de3e5a27c;hp=82f6474125883f4802692bd97a28c1655289fe83;hpb=2eb04ca0f8d0ec72b417cddc60672c696b4a3daa;p=ghc-hetmet.git

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 82f6474..b31e025 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1494,7 +1494,7 @@ gdpat	:: { LGRHS RdrName }
 -- Bangs inside are parsed as infix operator applications, so that
 -- we parse them right when bang-patterns are off
 pat     :: { LPat RdrName }
-pat 	: infixexp		{% checkPattern $1 }
+pat 	:  exp		 	{% checkPattern $1 }
 	| '!' aexp		{% checkPattern (LL (SectionR (L1 (HsVar bang_RDR)) $2)) }
 
 apat   :: { LPat RdrName }