From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 23 Jul 2007 14:10:23 +0000 (+0000)
Subject: FIX #1555: Remove "exp -> pat" production in stmts
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=911ab82c2a7c1aaf8feb78731f0bae588d244e14;hp=75dc1d81dcba9c392853ac8162b3bb35249b7e74

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.
---

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 }