[project @ 1996-05-17 16:02:43 by partain]

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

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index d87feb2..bd7dc9d 100644 (file)
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -119,8 +119,8 @@ module_stuff_pair   :  CONID INTEGER DCOLON name_version_pairs SEMI
 name_version_pairs  :: { Bag (FAST_STRING, Int) }
 name_version_pairs  :  name_version_pair
                        { unitBag $1 }
-                   |  name_version_pairs COMMA name_version_pair
-                       { $1 `snocBag` $3 }
+                   |  name_version_pairs name_version_pair
+                       { $1 `snocBag` $2 }
 
 name_version_pair   :: { (FAST_STRING, Int) }
 name_version_pair   :  iname INTEGER