From d257d05d4e40dc8ca6fa45760c594a880ffcc2ec Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 12 Jan 2020 07:07:04 +0100 Subject: Parse enum and input object type definitions --- src/Language/GraphQL/AST/Document.hs | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) (limited to 'src/Language/GraphQL/AST/Document.hs') diff --git a/src/Language/GraphQL/AST/Document.hs b/src/Language/GraphQL/AST/Document.hs index 74c6ce2..9b156b2 100644 --- a/src/Language/GraphQL/AST/Document.hs +++ b/src/Language/GraphQL/AST/Document.hs @@ -12,6 +12,7 @@ module Language.GraphQL.AST.Document , Description(..) , Directive(..) , Document + , EnumValueDefinition(..) , ExecutableDefinition(..) , FieldDefinition(..) , FragmentDefinition(..) @@ -289,7 +290,7 @@ data TypeDefinition | UnionTypeDefinition Description Name [Directive] (UnionMemberTypes []) | EnumTypeDefinition Description Name [Directive] [EnumValueDefinition] | InputObjectTypeDefinition - Description Name [Directive] InputFieldsDefinitionOpt + Description Name [Directive] [InputValueDefinition] deriving (Eq, Show) data TypeExtension @@ -310,7 +311,7 @@ data TypeExtension Name [Directive] (NonEmpty EnumValueDefinition) | EnumTypeDirectivesExtension Name (NonEmpty Directive) | InputObjectTypeInputFieldsDefinitionExtension - Name [Directive] InputFieldsDefinition + Name [Directive] (NonEmpty InputValueDefinition) | InputObjectTypeDirectivesExtension Name (NonEmpty Directive) deriving (Eq, Show) @@ -362,13 +363,3 @@ instance Foldable t => Show (UnionMemberTypes t) where data EnumValueDefinition = EnumValueDefinition Description Name [Directive] deriving (Eq, Show) - --- ** Input Objects - -newtype InputFieldsDefinition - = InputFieldsDefinition (NonEmpty InputValueDefinition) - deriving (Eq, Show) - -newtype InputFieldsDefinitionOpt - = InputFieldsDefinitionOpt [InputValueDefinition] - deriving (Eq, Show) -- cgit v1.2.3