From: simonmar <unknown>
Date: Wed, 2 Jun 1999 14:42:43 +0000 (+0000)
Subject: [project @ 1999-06-02 14:42:43 by simonmar]
X-Git-Tag: Approximately_9120_patches~6167
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c44ce58cb615cbf57ccd997eb94fb4241bb24c4f;p=ghc-hetmet.git

[project @ 1999-06-02 14:42:43 by simonmar]
Fix tyvars field of RuleDecls.
---

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 }