From: simonpj <unknown>
Date: Thu, 3 May 2001 08:08:44 +0000 (+0000)
Subject: [project @ 2001-05-03 08:08:44 by simonpj]
X-Git-Tag: Approximately_9120_patches~2030
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=88afc54a7414abd42e60f46c604f8119b7413aba;p=ghc-hetmet.git

[project @ 2001-05-03 08:08:44 by simonpj]
Allow infix exprssions on LHS of rule
---

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