From 21a7d9cce421352e837945a2334e7ccf10160d8c Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 19 Sep 2020 18:18:26 +0200 Subject: Validate variable names are unique --- src/Language/GraphQL/Execute/Transform.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Language/GraphQL/Execute/Transform.hs') 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 -- cgit v1.2.3