From c44ce58cb615cbf57ccd997eb94fb4241bb24c4f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 2 Jun 1999 14:42:43 +0000
Subject: [PATCH] [project @ 1999-06-02 14:42:43 by simonmar] Fix tyvars field
 of RuleDecls.

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

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 4a8d726..23f50d2 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.1 1999/06/01 16:40:48 simonmar Exp $
+$Id: Parser.y,v 1.2 1999/06/02 14:42:43 simonmar Exp $
 
 Haskell grammar.
 
@@ -429,8 +429,7 @@ rules	:: { RdrBinding }
 
 rule  	:: { RdrBinding }
 	: STRING rule_forall fexp '=' srcloc exp
-	     { RdrHsDecl (RuleD (RuleDecl $1 (error "rule tyvars") 
-		  $2 $3 $6 $5)) }
+	     { RdrHsDecl (RuleD (RuleDecl $1 [] $2 $3 $6 $5)) }
 
 rule_forall :: { [RdrNameRuleBndr] }
 	: 'forall' rule_var_list '.'            { $2 }
-- 
1.7.10.4