From 9bfa2aa7e8a72c9cc08743152a96d18312625712 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 24 Sep 2020 05:47:31 +0200 Subject: Validate input fields have unique names --- src/Language/GraphQL/AST/Parser.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'src/Language/GraphQL/AST/Parser.hs') diff --git a/src/Language/GraphQL/AST/Parser.hs b/src/Language/GraphQL/AST/Parser.hs index 29eee79..eb82f38 100644 --- a/src/Language/GraphQL/AST/Parser.hs +++ b/src/Language/GraphQL/AST/Parser.hs @@ -487,11 +487,12 @@ nullValue :: Parser Text nullValue = symbol "null" "NullValue" objectField :: Parser a -> Parser (ObjectField a) -objectField valueParser = ObjectField - <$> name - <* colon - <*> valueParser - "ObjectField" +objectField valueParser = label "ObjectField" $ do + location <- getLocation + fieldName <- name + colon + fieldValue <- valueParser + pure $ ObjectField fieldName fieldValue location variableDefinitions :: Parser [VariableDefinition] variableDefinitions = listOptIn parens variableDefinition -- cgit v1.2.3