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 /src/Language/GraphQL/Validate.hs | |
| parent | 1834e5c41e8eb7bccd391d54db9453ba2ecfa3b6 (diff) | |
| download | graphql-ba07f8298bda9b18ea0408988cc2cd2239ce9726.tar.gz | |
Validate repeatable directives
Diffstat (limited to 'src/Language/GraphQL/Validate.hs')
| -rw-r--r-- | src/Language/GraphQL/Validate.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/GraphQL/Validate.hs b/src/Language/GraphQL/Validate.hs index ba00594..5feb85a 100644 --- a/src/Language/GraphQL/Validate.hs +++ b/src/Language/GraphQL/Validate.hs @@ -283,7 +283,7 @@ operationDefinition rule context operation schema' = Validation.schema context queryRoot = Just $ Out.NamedObjectType $ Schema.query schema' types' = Schema.types schema' - + typeToOut :: forall m. Schema.Type m -> Maybe (Out.Type m) typeToOut (Schema.ObjectType objectType) = Just $ Out.NamedObjectType objectType @@ -403,7 +403,7 @@ arguments :: forall m -> Seq (Validation.RuleT m) arguments rule argumentTypes = foldMap forEach . Seq.fromList where - forEach argument'@(Full.Argument argumentName _ _) = + forEach argument'@(Full.Argument argumentName _ _) = let argumentType = HashMap.lookup argumentName argumentTypes in argument rule argumentType argument' |