From 78e0d871d5abfa920746d9af3c1e13611aea40e6 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Tue, 26 Jan 2016 13:38:02 +0100 Subject: Garden --- Data/GraphQL/AST.hs | 6 ++---- Data/GraphQL/Schema.hs | 2 ++ 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'Data') diff --git a/Data/GraphQL/AST.hs b/Data/GraphQL/AST.hs index 4140c9c..1303908 100644 --- a/Data/GraphQL/AST.hs +++ b/Data/GraphQL/AST.hs @@ -1,8 +1,8 @@ module Data.GraphQL.AST where import Data.Int (Int32) +import Data.String (IsString(fromString)) import Data.Text (Text, pack) -import Data.String -- * Name @@ -39,9 +39,7 @@ data Selection = SelectionField Field | SelectionInlineFragment InlineFragment deriving (Eq,Show) -data Field = Field Alias Name [Argument] - [Directive] - SelectionSet +data Field = Field Alias Name [Argument] [Directive] SelectionSet deriving (Eq,Show) type Alias = Name diff --git a/Data/GraphQL/Schema.hs b/Data/GraphQL/Schema.hs index 08ddaa1..795bb19 100644 --- a/Data/GraphQL/Schema.hs +++ b/Data/GraphQL/Schema.hs @@ -6,6 +6,8 @@ import Text.Show.Functions () import Data.Text (Text) import Data.Aeson (ToJSON(toJSON)) +-- TODO: Support side-effects + data Schema = Schema QueryRoot -- (Maybe MutationRoot) type QueryRoot = Resolver -- cgit v1.2.3