Introduce Node data type to simplify OperationDefinition

Thanks to @swolchok for the suggestion.
2015-09-21 10:05:09 +02:00
parent 88ca3d1866
commit 3d97b3e2ff
2 changed files with 16 additions and 15 deletions
--- a/Data/GraphQL/AST.hs
+++ b/Data/GraphQL/AST.hs
@ -16,12 +16,12 @@ data Definition = DefinitionOperation OperationDefinition
                | DefinitionType      TypeDefinition
                  deriving (Eq,Show)

-data OperationDefinition =
-    Query        Name [VariableDefinition] [Directive] SelectionSet
-  | Mutation     Name [VariableDefinition] [Directive] SelectionSet
-  -- Not official yet
-  -- -- | Subscription Name [VariableDefinition] [Directive] SelectionSet
-    deriving (Eq,Show)
+data OperationDefinition = Query    Node
+                         | Mutation Node
+                           deriving (Eq,Show)
+
+data Node = Node Name [VariableDefinition] [Directive] SelectionSet
+            deriving (Eq,Show)

 data VariableDefinition = VariableDefinition Variable Type (Maybe DefaultValue)
                          deriving (Eq,Show)