X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=1469a668c5f0a06f70108e7ef657de02016f9876;hp=3bb5ab4f094bdcb871a9a27795c49b86a8f3e929;hb=e70246a799b0038cf84874550283c52858231159;hpb=b084ad5179792a9ab4dcf95038aa33e1e9154afd

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 3bb5ab4..1469a66 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -343,9 +343,8 @@ maybeexports :: { Maybe [LIE RdrName] }
 	|  {- empty -}				{ Nothing }
 
 exportlist :: { [LIE RdrName] }
- 	:  exportlist ',' export		{ $3 : $1 }
-	|  exportlist ','			{ $1 }
- 	|  export				{ [$1]  }
+	:  export				{ [$1] }
+	|  export ',' exportlist		{ $1 : $3 }
 	|  {- empty -}				{ [] }
 
    -- No longer allow things like [] and (,,,) to be exported