Fix parsing of field names

2007-05-03 23:15:24 +00:00 · 2007-05-03 23:15:24 +00:00 · afdd2c88e7
commit afdd2c88e7
parent 6a30c57f52
1 changed files with 1 additions and 1 deletions
--- a/fco2/Parse.hs
+++ b/fco2/Parse.hs
@ -1514,7 +1514,7 @@ recordKeyword
 structuredTypeField :: OccParser [(A.Name, A.Type)]
 structuredTypeField
    =   do t <- dataType
-           fs <- many1 newFieldName
+           fs <- sepBy1 newFieldName sComma
           sColon
           eol
           return [(f, t) | f <- fs]