fix empty list argument parsing

CHANGELOG.md

@@ -8,7 +8,9 @@ and this project adheres to
 
 ## [Unreleased]
 ### Fixed
-- Index position in error path. (Index and Segment paths of a field have been swapped)
+- Index position in error path. (Index and Segment paths of a field have been
+  swapped).
+- Parsing empty list as an argument.
 
 ## [1.0.2.0] - 2021-12-26
 ### Added

src/Language/GraphQL/AST/Parser.hs

@@ -450,8 +450,8 @@ value = Full.Variable <$> variable
     <|> Full.Null <$  nullValue
     <|> Full.String <$> stringValue
     <|> Full.Enum <$> try enumValue
-    <|> Full.List <$> brackets (some $ valueNode value)
+    <|> Full.List <$> brackets (many $ valueNode value)
-    <|> Full.Object <$> braces (some $ objectField $ valueNode value)
+    <|> Full.Object <$> braces (many $ objectField $ valueNode value)
     <?> "Value"
 
 constValue :: Parser Full.ConstValue

tests/Language/GraphQL/AST/ParserSpec.hs

@@ -9,7 +9,7 @@ import Language.GraphQL.AST.Document
 import qualified Language.GraphQL.AST.DirectiveLocation as DirLoc
 import Language.GraphQL.AST.Parser
 import Language.GraphQL.TH
-import Test.Hspec (Spec, describe, it)
+import Test.Hspec (Spec, describe, it, context)
 import Test.Hspec.Megaparsec (shouldParse, shouldFailOn, shouldSucceedOn)
 import Text.Megaparsec (parse)
 
@@ -18,33 +18,56 @@ spec = describe "Parser" $ do
     it "accepts BOM header" $
         parse document "" `shouldSucceedOn` "\xfeff{foo}"
 
-    it "accepts block strings as argument" $
+    context "Arguments" $ do
-        parse document "" `shouldSucceedOn` [gql|{
+       it "accepts block strings as argument" $
-              hello(text: """Argument""")
+           parse document "" `shouldSucceedOn` [gql|{
-            }|]
+                 hello(text: """Argument""")
+               }|]
 
-    it "accepts strings as argument" $
+       it "accepts strings as argument" $
-        parse document "" `shouldSucceedOn` [gql|{
+           parse document "" `shouldSucceedOn` [gql|{
-              hello(text: "Argument")
+                 hello(text: "Argument")
-            }|]
+               }|]
 
-    it "accepts two required arguments" $
+       it "accepts int as argument" $
-        parse document "" `shouldSucceedOn` [gql|
+           parse document "" `shouldSucceedOn` [gql|{
-            mutation auth($username: String!, $password: String!){
+                 user(id: 4)
-              test
+               }|]
-            }|]
+
+       it "accepts boolean as argument" $
+           parse document "" `shouldSucceedOn` [gql|{
+                 hello(flag: true) { field1 }
+               }|]
+
+       it "accepts float as argument" $
+           parse document "" `shouldSucceedOn` [gql|{
+                 body(height: 172.5) { height }
+               }|]
+
+       it "accepts empty list as argument" $
+           parse document "" `shouldSucceedOn` [gql|{
+                 query(list: []) { field1 }
+               }|]
+
+       it "accepts two required arguments" $
+           parse document "" `shouldSucceedOn` [gql|
+               mutation auth($username: String!, $password: String!){
+                 test
+               }|]
+
+       it "accepts two string arguments" $
+           parse document "" `shouldSucceedOn` [gql|
+               mutation auth{
+                 test(username: "username", password: "password")
+               }|]
+
+       it "accepts two block string arguments" $
+           parse document "" `shouldSucceedOn` [gql|
+               mutation auth{
+                 test(username: """username""", password: """password""")
+               }|]
 
-    it "accepts two string arguments" $
-        parse document "" `shouldSucceedOn` [gql|
-            mutation auth{
-              test(username: "username", password: "password")
-            }|]
 
-    it "accepts two block string arguments" $
-        parse document "" `shouldSucceedOn` [gql|
-            mutation auth{
-              test(username: """username""", password: """password""")
-            }|]
 
     it "parses minimal schema definition" $
         parse document "" `shouldSucceedOn` [gql|schema { query: Query }|]
@@ -202,6 +225,13 @@ spec = describe "Parser" $ do
             }
         |]
 
+    it "rejects empty selection set" $
+       parse document "" `shouldFailOn` [gql|
+            query {
+              innerField {}
+            }
+        |]
+
     it "parses documents beginning with a comment" $
         parse document "" `shouldSucceedOn` [gql|
             """