|
vor 1 Jahr | |
---|---|---|
src/Data/Morpheus | vor 1 Jahr | |
test | vor 1 Jahr | |
.gitignore | vor 1 Jahr | |
LICENSE | vor 1 Jahr | |
README.md | vor 1 Jahr | |
changelog.md | vor 1 Jahr | |
default.nix | vor 1 Jahr | |
morpheus-graphql-core.cabal | vor 1 Jahr | |
package.yaml | vor 1 Jahr | |
shell.nix | vor 1 Jahr |
core Functionalities of Morpheus GraphQL, can be used to build GraphQL server, client ..
schema :: Schema VALID
schema =
[dsl|
type Query {
deity(name: String): Deity!
}
type Deity {
name: String!
power: [String!]!
}
|]
resolver :: Monad m => RootResModel e m
resolver =
RootResModel
{ query =
pure $
mkObject
"Query"
[("deity", resolveDeity)],
mutation = pure mkNull,
subscription = pure mkNull
}
resolveDeity :: (WithOperation o, Monad m) => Resolver o e m (ResModel o e m)
resolveDeity =
pure $
mkObject
"Deity"
[ ("name", pure $ mkString "Morpheus"),
("power", pure $ mkList [mkString "Shapeshifting"])
]
api :: ByteString -> IO ByteString
api = runApp (mkApp schema resolver)