From afdd2c88e76ad18bb2f74a72b47088eb4dce96e1 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Thu, 3 May 2007 23:15:24 +0000
Subject: [PATCH] Fix parsing of field names

---
 fco2/Parse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fco2/Parse.hs b/fco2/Parse.hs
index cc0f38e..6220a34 100644
--- 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]