diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-09-19 18:18:26 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-09-19 18:18:26 +0200 |
| commit | 21a7d9cce421352e837945a2334e7ccf10160d8c (patch) | |
| tree | 5fa09a68cd7e5f7ab9aa1db082f74093bcbeb52c /src/Language/GraphQL/Execute | |
| parent | 9a08aa5de73e225a9a76017aee4886ce7f6eccec (diff) | |
| download | graphql-21a7d9cce421352e837945a2334e7ccf10160d8c.tar.gz | |
Validate variable names are unique
Diffstat (limited to 'src/Language/GraphQL/Execute')
| -rw-r--r-- | src/Language/GraphQL/Execute/Transform.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Language/GraphQL/Execute/Transform.hs b/src/Language/GraphQL/Execute/Transform.hs index d150446..6f123e6 100644 --- a/src/Language/GraphQL/Execute/Transform.hs +++ b/src/Language/GraphQL/Execute/Transform.hs @@ -180,7 +180,7 @@ coerceVariableValues types operationDefinition variableValues = $ foldr forEach (Just HashMap.empty) variableDefinitions where forEach variableDefinition coercedValues = do - let Full.VariableDefinition variableName variableTypeName defaultValue = + let Full.VariableDefinition variableName variableTypeName defaultValue _ = variableDefinition let defaultValue' = constValue <$> defaultValue variableType <- lookupInputType variableTypeName types |