diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-10-13 19:40:12 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-10-13 19:40:12 +0200 |
| commit | ba07f8298bda9b18ea0408988cc2cd2239ce9726 (patch) | |
| tree | 91059533eb750040e74f75e325399a1b4fe282d2 /tests/Language/GraphQL/AST/ParserSpec.hs | |
| parent | 1834e5c41e8eb7bccd391d54db9453ba2ecfa3b6 (diff) | |
| download | graphql-ba07f8298bda9b18ea0408988cc2cd2239ce9726.tar.gz | |
Validate repeatable directives
Diffstat (limited to 'tests/Language/GraphQL/AST/ParserSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/AST/ParserSpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Language/GraphQL/AST/ParserSpec.hs b/tests/Language/GraphQL/AST/ParserSpec.hs index 0e7c28a..455c99a 100644 --- a/tests/Language/GraphQL/AST/ParserSpec.hs +++ b/tests/Language/GraphQL/AST/ParserSpec.hs @@ -82,8 +82,8 @@ spec = describe "Parser" $ do it "accepts any arguments" $ mapSize (const 10) $ property $ \xs -> let query' :: Text - arguments = map printArgument $ getNonEmpty (xs :: NonEmptyList (AnyArgument AnyValue)) - query' = "query(" <> Text.intercalate ", " arguments <> ")" in + arguments' = map printArgument $ getNonEmpty (xs :: NonEmptyList (AnyArgument AnyValue)) + query' = "query(" <> Text.intercalate ", " arguments' <> ")" in parse document "" `shouldSucceedOn` ("{ " <> query' <> " }") it "parses minimal schema definition" $ |