forked from OSS/graphql
98d2d41cda
The correspondent end-to-end test has been ported. The variable definition still needs to be checked.
58 lines
1.5 KiB
Haskell
58 lines
1.5 KiB
Haskell
{-# LANGUAGE CPP #-}
|
|
module Data.GraphQL.Schema where
|
|
|
|
#if !MIN_VERSION_base(4,8,0)
|
|
import Control.Applicative ((<$>))
|
|
#endif
|
|
import Data.String (IsString(fromString))
|
|
|
|
import Data.Aeson (ToJSON(toJSON))
|
|
import Data.HashMap.Strict (HashMap)
|
|
import Data.Text (Text, pack)
|
|
|
|
data Schema f = Schema (QueryRoot f) -- (Maybe MutationRoot)
|
|
|
|
type QueryRoot f = Resolver f
|
|
|
|
type Resolver f = Input -> f Output
|
|
|
|
data Output = OutputObject (HashMap Text Output)
|
|
| OutputList [Output]
|
|
| OutputScalar Scalar
|
|
| OutputEnum Text
|
|
deriving (Show)
|
|
-- | OutputUnion [Output]
|
|
-- | OutputNonNull (Output)
|
|
|
|
type Argument = (Text, Scalar)
|
|
|
|
type Subs = Text -> Maybe Scalar
|
|
|
|
data Input = InputField Text [Argument] [Input]
|
|
deriving (Show)
|
|
|
|
-- TODO: Make ScalarInt Int32
|
|
data Scalar = ScalarInt Int
|
|
| ScalarFloat Double
|
|
| ScalarString Text
|
|
| ScalarBoolean Bool
|
|
| ScalarID Text
|
|
deriving (Show)
|
|
|
|
instance IsString Scalar where
|
|
fromString = ScalarString . pack
|
|
|
|
instance ToJSON Scalar where
|
|
toJSON (ScalarInt x) = toJSON x
|
|
toJSON (ScalarFloat x) = toJSON x
|
|
toJSON (ScalarString x) = toJSON x
|
|
toJSON (ScalarBoolean x) = toJSON x
|
|
toJSON (ScalarID x) = toJSON x
|
|
|
|
instance ToJSON Output where
|
|
toJSON (OutputObject x) = toJSON $ toJSON <$> x
|
|
toJSON (OutputList x) = toJSON $ toJSON <$> x
|
|
toJSON (OutputScalar x) = toJSON x
|
|
toJSON (OutputEnum x) = toJSON x
|
|
|