diff options
| author | Eugen Wissner <belka@caraus.de> | 2021-02-02 07:15:30 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2021-02-02 07:15:30 +0100 |
| commit | ebf4f4d24edd790b477cce62780693ba426d254d (patch) | |
| tree | fffe6b7907c9c9d540a7f87ee42cab5ed1a3f074 /src/Language/GraphQL/Validate/Rules.hs | |
| parent | 1c7554c3286354fbedb9340cb1f9cb84cd9ac2ff (diff) | |
| download | graphql-ebf4f4d24edd790b477cce62780693ba426d254d.tar.gz | |
Update stack snapshot to 17.x.
Diffstat (limited to 'src/Language/GraphQL/Validate/Rules.hs')
| -rw-r--r-- | src/Language/GraphQL/Validate/Rules.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/GraphQL/Validate/Rules.hs b/src/Language/GraphQL/Validate/Rules.hs index 73b8029..3fcfb96 100644 --- a/src/Language/GraphQL/Validate/Rules.hs +++ b/src/Language/GraphQL/Validate/Rules.hs @@ -1404,7 +1404,7 @@ variablesInAllowedPositionRule = OperationDefinitionRule $ \case mapDirectives variables = fmap fold <$> traverse (findDirectiveVariables variables) lookupInputObject variables objectFieldValue locationInfo - | Full.Node{ node = Full.Object objectFields, ..} <- objectFieldValue + | Full.Node{ node = Full.Object objectFields } <- objectFieldValue , Just (expectedType, _) <- locationInfo , In.InputObjectBaseType inputObjectType <- expectedType , In.InputObjectType _ _ fieldTypes' <- inputObjectType = @@ -1423,7 +1423,7 @@ variablesInAllowedPositionRule = OperationDefinitionRule $ \case -> ValidationState m (Seq Error) findArgumentVariables variables argumentTypes argument | Full.Argument argumentName argumentValue _ <- argument - , Full.Node{ node = Full.Variable variableName, ..} <- argumentValue + , Full.Node{ node = Full.Variable variableName } <- argumentValue = maybeUsageAllowed variableName variables $ locationPair extractArgument argumentTypes argumentName | Full.Argument argumentName argumentValue _ <- argument |