diff options
| author | Dmitrii Skurikhin <dmitrii.sk@gmail.com> | 2022-01-06 16:49:54 +0300 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2022-01-09 09:00:56 +0100 |
| commit | 0c8edae90af9ca9033dc106756cf8ce29c08087b (patch) | |
| tree | d69d80fccadfde2afe6906031363d976fcf11ec4 /src/Language/GraphQL/AST/Parser.hs | |
| parent | 73585dde85f9f0a5f88230768ae50cf4ea2c49b9 (diff) | |
| download | graphql-0c8edae90af9ca9033dc106756cf8ce29c08087b.tar.gz | |
fix empty list argument parsing
Diffstat (limited to 'src/Language/GraphQL/AST/Parser.hs')
| -rw-r--r-- | src/Language/GraphQL/AST/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/GraphQL/AST/Parser.hs b/src/Language/GraphQL/AST/Parser.hs index 19251ab..e19823c 100644 --- a/src/Language/GraphQL/AST/Parser.hs +++ b/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.Object <$> braces (some $ objectField $ valueNode value) + <|> Full.List <$> brackets (many $ valueNode value) + <|> Full.Object <$> braces (many $ objectField $ valueNode value) <?> "Value" constValue :: Parser Full.ConstValue |