From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 21 Aug 2006 10:26:33 +0000 (+0000)
Subject: fix export/import list parsing (allow (,)), and remove unnecessary reverses
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fce276e16071947919e1e24eaae0288cfa8edfdd

fix export/import list parsing (allow (,)), and remove unnecessary reverses
---

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 1469a66..1ad8d5f 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -342,7 +342,11 @@ maybeexports :: { Maybe [LIE RdrName] }
 	:  '(' exportlist ')'			{ Just $2 }
 	|  {- empty -}				{ Nothing }
 
-exportlist :: { [LIE RdrName] }
+exportlist  :: { [LIE RdrName] }
+	: ','					{ [] }
+	| exportlist1				{ $1 }
+
+exportlist1 :: { [LIE RdrName] }
 	:  export				{ [$1] }
 	|  export ',' exportlist		{ $1 : $3 }
 	|  {- empty -}				{ [] }
@@ -398,8 +402,8 @@ maybeimpspec :: { Located (Maybe (Bool, [LIE RdrName])) }
 	| {- empty -}				{ noLoc Nothing }
 
 impspec :: { Located (Bool, [LIE RdrName]) }
-	:  '(' exportlist ')'  			{ LL (False, reverse $2) }
-	|  'hiding' '(' exportlist ')' 		{ LL (True,  reverse $3) }
+	:  '(' exportlist ')'  			{ LL (False, $2) }
+	|  'hiding' '(' exportlist ')' 		{ LL (True,  $3) }
 
 -----------------------------------------------------------------------------
 -- Fixity Declarations