diff options
| author | Danny Navarro <j@dannynavarro.net> | 2015-09-21 10:05:09 +0200 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2015-09-21 10:05:09 +0200 |
| commit | 3d97b3e2ff7cc6d5126c8c6c8b66eed3c1fe010b (patch) | |
| tree | 2c1304afd7b6401129f3a6ff7f2d182197534c63 /Data/GraphQL/AST.hs | |
| parent | 88ca3d18664aa5fd64692491086b07876c5facae (diff) | |
| download | graphql-3d97b3e2ff7cc6d5126c8c6c8b66eed3c1fe010b.tar.gz | |
Introduce `Node` data type to simplify `OperationDefinition`
Thanks to @swolchok for the suggestion.
Diffstat (limited to 'Data/GraphQL/AST.hs')
| -rw-r--r-- | Data/GraphQL/AST.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Data/GraphQL/AST.hs b/Data/GraphQL/AST.hs index 45bc519..cc631e6 100644 --- 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) |