From a6b2fd297b01a4d7a9e4ea6fc73e21150c1259b9 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Wed, 17 Feb 2016 13:13:01 +0100 Subject: Garden --- Data/GraphQL/Schema.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'Data/GraphQL/Schema.hs') diff --git a/Data/GraphQL/Schema.hs b/Data/GraphQL/Schema.hs index 8d63696..4ec3748 100644 --- a/Data/GraphQL/Schema.hs +++ b/Data/GraphQL/Schema.hs @@ -10,7 +10,7 @@ import Data.Aeson (ToJSON(toJSON)) import Data.HashMap.Strict (HashMap) import Data.Text (Text, pack) -data Schema f = Schema (QueryRoot f) -- (Maybe MutationRoot) +data Schema f = Schema (QueryRoot f) type QueryRoot f = Resolver f @@ -21,8 +21,6 @@ data Output = OutputObject (HashMap Text Output) | OutputScalar Scalar | OutputEnum Text deriving (Show) - -- | OutputUnion [Output] - -- | OutputNonNull (Output) type Argument = (Text, Scalar) @@ -31,7 +29,7 @@ type Subs = Text -> Maybe Scalar data Input = InputField Text [Argument] [Input] deriving (Show) --- TODO: Make ScalarInt Int32 +-- TODO: GraphQL spec for Integer Scalar is 32bits data Scalar = ScalarInt Int | ScalarFloat Double | ScalarString Text @@ -40,7 +38,7 @@ data Scalar = ScalarInt Int deriving (Show) instance IsString Scalar where - fromString = ScalarString . pack + fromString = ScalarString . pack instance ToJSON Scalar where toJSON (ScalarInt x) = toJSON x -- cgit v1.2.3