From fdf5914626ad172a8a459696f0114ef990c0d5cb Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 28 Dec 2019 07:07:58 +0100 Subject: Move AST to AST.Document --- src/Language/GraphQL/AST/Parser.hs | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 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 ad2b96d..113b0a4 100644 --- a/src/Language/GraphQL/AST/Parser.hs +++ b/src/Language/GraphQL/AST/Parser.hs @@ -25,13 +25,16 @@ definition = DefinitionOperation <$> operationDefinition "definition error!" operationDefinition :: Parser OperationDefinition -operationDefinition = OperationSelectionSet <$> selectionSet - <|> OperationDefinition <$> operationType - <*> optional name - <*> opt variableDefinitions - <*> opt directives - <*> selectionSet - "operationDefinition error" +operationDefinition = SelectionSet <$> selectionSet + <|> operationDefinition' + "operationDefinition error" + where + operationDefinition' + = OperationDefinition <$> operationType + <*> optional name + <*> opt variableDefinitions + <*> opt directives + <*> selectionSet operationType :: Parser OperationType operationType = Query <$ symbol "query" -- cgit v1.2.3