From: panne <unknown>
Date: Mon, 21 Feb 2000 18:56:02 +0000 (+0000)
Subject: [project @ 2000-02-21 18:56:02 by panne]
X-Git-Tag: Approximately_9120_patches~5116
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=105fb636c561fd7a4d59644b0e6bc79d44bb8185;p=ghc-hetmet.git

[project @ 2000-02-21 18:56:02 by panne]
Fixed typo in deprecations parsing
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 70fc0a3..6858e9e 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -366,7 +366,7 @@ rule_forall	: '__forall' '{' core_bndrs '}'	{ $3 }
 
 deprecs 	:: { [(Maybe FAST_STRING, FAST_STRING)] }
 deprecs		: {- empty -}		{ [] }
-		| deprecs ';' deprec	{ $3 : $1 }
+		| deprecs deprec ';'	{ $2 : $1 }
 
 deprec		:: { (Maybe FAST_STRING, FAST_STRING) }
 deprec		: STRING		{ (Nothing, $1) }