X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=adabb756abc975dcbdc7289ecb3fec5f5e9f591a;hp=b31e0250852368133f4f0655eb21c38a4625ef21;hb=911ab82c2a7c1aaf8feb78731f0bae588d244e14;hpb=75dc1d81dcba9c392853ac8162b3bb35249b7e74

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index b31e025..adabb75 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1534,9 +1534,6 @@ maybe_stmt :: { Maybe (LStmt RdrName) }
 
 stmt  :: { LStmt RdrName }
 	: qual				{ $1 }
--- What is this next production doing?  I have no clue!  SLPJ Dec06
-	| infixexp '->' exp		{% checkPattern $3 >>= \p ->
-					   return (LL $ mkBindStmt p $1) }
   	| 'rec' stmtlist		{ LL $ mkRecStmt (unLoc $2) }
 
 qual  :: { LStmt RdrName }