@@ -34,7 +34,7 @@ record =
35 whitespace >> string "|" >> whitespace
35 whitespace >> string "|" >> whitespace
37− fields = commaSep $ do
37+ fields = commaSep1 $ do
38 lbl <- rLabel
38 lbl <- rLabel
39 whitespace >> hasType >> whitespace
39 whitespace >> hasType >> whitespace
40 (,) lbl <$> expr
40 (,) lbl <$> expr