From 105fb636c561fd7a4d59644b0e6bc79d44bb8185 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 21 Feb 2000 18:56:02 +0000
Subject: [PATCH] [project @ 2000-02-21 18:56:02 by panne] Fixed typo in
 deprecations parsing

---
 ghc/compiler/rename/ParseIface.y |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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) }
-- 
1.7.10.4