[project @ 2000-02-21 18:56:02 by panne]

[ghc-hetmet.git] / ghc / compiler / rename / ParseIface.y

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 70fc0a3..6858e9e 100644 (file)
--- 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) }