diff options
Diffstat (limited to 'Data/GraphQL/Schema.hs')
| -rw-r--r-- | Data/GraphQL/Schema.hs | 8 |
1 files changed, 3 insertions, 5 deletions
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 |