From 88afc54a7414abd42e60f46c604f8119b7413aba Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 3 May 2001 08:08:44 +0000
Subject: [PATCH] [project @ 2001-05-03 08:08:44 by simonpj] Allow infix
 exprssions on LHS of rule

---
 ghc/compiler/parser/Parser.y |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 6f09c9f..61a3275 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.58 2001/05/01 09:16:55 qrczak Exp $
+$Id: Parser.y,v 1.59 2001/05/03 08:08:44 simonpj Exp $
 
 Haskell grammar.
 
@@ -428,7 +428,7 @@ rules	:: { RdrBinding }
 	|  {- empty -}				{ RdrNullBind }
 
 rule  	:: { RdrBinding }
-	: STRING rule_forall fexp '=' srcloc exp
+	: STRING rule_forall infixexp '=' srcloc exp
 	     { RdrHsDecl (RuleD (HsRule $1 [] $2 $3 $6 $5)) }
 
 rule_forall :: { [RdrNameRuleBndr] }
-- 
1.7.10.4