Disallow extended record types with no fields, resolves #280

2013-10-14 17:42:26 -04:00 · 2013-10-14 17:42:26 -04:00 · 11a60de544
commit 11a60de544
parent 115b139774
1 changed files with 1 additions and 1 deletions
--- a/compiler/Parse/Type.hs
+++ b/compiler/Parse/Type.hs
@ -34,7 +34,7 @@ record =
               t <- tvar
               whitespace >> string "|" >> whitespace
               return t
-    fields = commaSep $ do
+    fields = commaSep1 $ do
               lbl <- rLabel
               whitespace >> hasType >> whitespace
               (,) lbl <$> expr