OSS/graphql
1
1
Fork 1
Code Issues 4 Pull Requests Actions Releases 22 Wiki Activity

Update stack snapshot to 17.x.

Browse Source
This commit is contained in:
Eugen Wissner
2021-02-02 07:15:30 +01:00
parent 1c7554c328
commit ebf4f4d24e
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/GraphQL/Validate/Rules.hs
View File

@ -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