Fix parsing export lists
authorIan Lynagh <ian@well-typed.com>
Sun, 19 May 2013 12:36:14 +0000 (13:36 +0100)
committerIan Lynagh <ian@well-typed.com>
Sun, 19 May 2013 12:36:14 +0000 (13:36 +0100)
We were accepting
    module ExportCommaComma (id, reverse,,) where
where only 1 trailing comma should be permitted.

compiler/parser/Parser.y.pp

index 18651b9..34c0bc6 100644 (file)
@@ -469,7 +469,7 @@ exportlist :: { [LIE RdrName] }
         | exportlist1                           { $1 }
 
 exportlist1 :: { [LIE RdrName] }
-        : expdoclist export expdoclist ',' exportlist  { $1 ++ ($2 : $3) ++ $5 }
+        : expdoclist export expdoclist ',' exportlist1 { $1 ++ ($2 : $3) ++ $5 }
         | expdoclist export expdoclist                 { $1 ++ ($2 : $3) }
         | expdoclist                                   { $1 }