From 911ab82c2a7c1aaf8feb78731f0bae588d244e14 Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 23 Jul 2007 14:10:23 +0000
Subject: [PATCH] FIX #1555: Remove "exp -> pat" production in stmts It looks
 like this was an experiment that accidentally got
 committed, somewhere between 6.0 and 6.2.

---
 compiler/parser/Parser.y.pp |    3 ---
 1 file changed, 3 deletions(-)

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 }
-- 
1.7.10.4