Allow spaces right before/after tag parentheses (#71)

Fix #69
nirum-lang · Aug 26, 2016 · e4c378c · e4c378c
1 parent 0666b8d
commit e4c378c
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/src/Nirum/Parser.hs b/src/Nirum/Parser.hs
@@ -412,7 +412,9 @@ tag = do
     spaces
     paren <- optional $ char '('
     fields' <- case paren of
-        Just _ -> do { f <- fieldSet <?> "union tag fields"
+        Just _ -> do { spaces
+                     ; f <- fieldSet <?> "union tag fields"
+                     ; spaces
                      ; char ')'
                      ; return f
                      }

diff --git a/test/Nirum/ParserSpec.hs b/test/Nirum/ParserSpec.hs
@@ -606,6 +606,17 @@ spec = do
                                     \point lower-right,)\n\
                    \    | none\n\
                    \    ;" `shouldBeRight` a
+            parse' "union shape\n\
+                   \    = circle (\n\
+                   \        point origin,\n\
+                   \        offset radius,\n\
+                   \      )\n\
+                   \    | rectangle (\n\
+                   \        point upper-left,\n\
+                   \        point lower-right,\n\
+                   \      )\n\
+                   \    | none\n\
+                   \    ;" `shouldBeRight` a
             parse' "union shape\n\
                    \    # shape type\n\
                    \    = circle (point origin, \