prescientmoon/graphql
1
0
Fork 0
forked from OSS/graphql
Code Pull Requests 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
Show Stats 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 mapDirectives variables = fmap fold
<$> traverse (findDirectiveVariables variables) <$> traverse (findDirectiveVariables variables)
lookupInputObject variables objectFieldValue locationInfo lookupInputObject variables objectFieldValue locationInfo
| Full.Node{ node = Full.Object objectFields, ..} <- objectFieldValue | Full.Node{ node = Full.Object objectFields } <- objectFieldValue
, Just (expectedType, _) <- locationInfo , Just (expectedType, _) <- locationInfo
, In.InputObjectBaseType inputObjectType <- expectedType , In.InputObjectBaseType inputObjectType <- expectedType
, In.InputObjectType _ _ fieldTypes' <- inputObjectType = , In.InputObjectType _ _ fieldTypes' <- inputObjectType =
@ -1423,7 +1423,7 @@ variablesInAllowedPositionRule = OperationDefinitionRule $ \case
-> ValidationState m (Seq Error) -> ValidationState m (Seq Error)
findArgumentVariables variables argumentTypes argument findArgumentVariables variables argumentTypes argument
| Full.Argument argumentName argumentValue _ <- argument | Full.Argument argumentName argumentValue _ <- argument
, Full.Node{ node = Full.Variable variableName, ..} <- argumentValue , Full.Node{ node = Full.Variable variableName } <- argumentValue
= maybeUsageAllowed variableName variables = maybeUsageAllowed variableName variables
$ locationPair extractArgument argumentTypes argumentName $ locationPair extractArgument argumentTypes argumentName
| Full.Argument argumentName argumentValue _ <- argument | Full.Argument argumentName argumentValue _ <- argument

2
stack.yaml
View File

@ -1,4 +1,4 @@
resolver: lts-16.31 resolver: lts-17.1
packages: packages:
- . - .