Parse complete TypeSystemDefinition

2020-01-15 20:20:50 +01:00
parent d257d05d4e
commit ba710a3c96
6 changed files with 78 additions and 21 deletions
--- a/src/Language/GraphQL/AST/Document.hs
+++ b/src/Language/GraphQL/AST/Document.hs
@@ -248,7 +248,7 @@ data TypeSystemDefinition
    = SchemaDefinition [Directive] OperationTypeDefinitions
    | TypeDefinition TypeDefinition
    | DirectiveDefinition
-        Description Name ArgumentsDefinition DirectiveLocation
+        Description Name ArgumentsDefinition (NonEmpty DirectiveLocation)
    deriving (Eq, Show)

 -- ** Type System Extensions