diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-08-27 10:51:01 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-08-27 10:51:01 +0200 |
| commit | b40d8a7e1ef03e6ccbe990572add58cfaa6d8ed9 (patch) | |
| tree | f803e634f92953b457c8418747d67678754e77c3 /src/Language/GraphQL/Validate.hs | |
| parent | 4b5e25a4d84e992910ad4bdf92b0f8a2213493a8 (diff) | |
| download | graphql-b40d8a7e1ef03e6ccbe990572add58cfaa6d8ed9.tar.gz | |
Parse repeatable directive definitions
Diffstat (limited to 'src/Language/GraphQL/Validate.hs')
| -rw-r--r-- | src/Language/GraphQL/Validate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |