Implement multiple operation support

2019-07-25 07:37:36 +02:00
parent 282946560e
commit 15568a3b99
4 changed files with 54 additions and 17 deletions
--- a/src/Language/GraphQL/AST/Core.hs
+++ b/src/Language/GraphQL/AST/Core.hs
@ -21,8 +21,8 @@ type Name = Text

 type Document = NonEmpty Operation

-data Operation = Query    (NonEmpty Field)
-               | Mutation (NonEmpty Field)
+data Operation = Query (Maybe Text) (NonEmpty Field)
+               | Mutation (Maybe Text) (NonEmpty Field)
                 deriving (Eq,Show)

 data Field = Field (Maybe Alias) Name [Argument] [Field] deriving (Eq,Show)