Validate repeatable directives

2024-10-13 19:40:12 +02:00
parent 1834e5c41e
commit ba07f8298b
9 changed files with 52 additions and 23 deletions
--- 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" $