From b40d8a7e1ef03e6ccbe990572add58cfaa6d8ed9 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 27 Aug 2024 10:51:01 +0200 Subject: Parse repeatable directive definitions --- src/Language/GraphQL/Validate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Language/GraphQL/Validate.hs') diff --git a/src/Language/GraphQL/Validate.hs b/src/Language/GraphQL/Validate.hs index f6f8788..ba00594 100644 --- a/src/Language/GraphQL/Validate.hs +++ b/src/Language/GraphQL/Validate.hs @@ -200,7 +200,7 @@ typeSystemDefinition context rule = \case directives context rule schemaLocation directives' Full.TypeDefinition typeDefinition' -> typeDefinition context rule typeDefinition' - Full.DirectiveDefinition _ _ arguments' _ -> + Full.DirectiveDefinition _ _ arguments' _ _ -> argumentsDefinition context rule arguments' typeDefinition :: forall m. Validation m -> ApplyRule m Full.TypeDefinition -- cgit v1.2.3