prescientmoon/graphql
1
0
Fork 0
forked from OSS/graphql
Code Pull Requests Activity

Enable Monad for array and object resolver

Browse Source 
When I use facebook/haxl, I can not find any way to the sub resolver.
so I add Monad resolver to support it.
This commit is contained in:
Lupino 2017-02-23 11:03:08 +08:00
parent 642eab312f
commit 3be86bf69e
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
Data/GraphQL/Schema.hs
View File

@ -7,11 +7,15 @@ module Data.GraphQL.Schema
, Resolver , Resolver
, Subs , Subs
, object , object
, object'
, objectA , objectA
, objectA'
, scalar , scalar
, scalarA , scalarA
, array , array
, array'
, arrayA , arrayA
, arrayA'
, enum , enum
, enumA , enumA
, resolvers , resolvers
@ -61,6 +65,21 @@ objectA
objectA name f fld@(Field _ _ args _ sels) = objectA name f fld@(Field _ _ args _ sels) =
withField name (resolvers (f args) $ fields sels) fld withField name (resolvers (f args) $ fields sels) fld
-- | Create a named 'Resolver' from a list of 'Resolver's.
object' :: (Alternative f, Monad f)=> Text -> f [Resolver f] -> Resolver f
object' name resolvs = objectA' name $ \case
[] -> resolvs
_ -> empty
-- | Like 'object'' but also taking 'Argument's.
objectA'
:: (Alternative f, Monad f)
=> Text -> ([Argument] -> f [Resolver f]) -> Resolver f
objectA' name f fld@(Field _ _ args _ sels) = do
resolvs <- f args
withField name (resolvers resolvs $ fields sels) fld
-- | A scalar represents a primitive value, like a string or an integer. -- | A scalar represents a primitive value, like a string or an integer.
scalar :: (Alternative f, Aeson.ToJSON a) => Text -> a -> Resolver f scalar :: (Alternative f, Aeson.ToJSON a) => Text -> a -> Resolver f
scalar name s = scalarA name $ \case scalar name s = scalarA name $ \case
@ -87,6 +106,20 @@ arrayA
arrayA name f fld@(Field _ _ args _ sels) = arrayA name f fld@(Field _ _ args _ sels) =
withField name (joinErrs $ traverse (flip resolvers $ fields sels) $ f args) fld withField name (joinErrs $ traverse (flip resolvers $ fields sels) $ f args) fld
-- | Like 'object'' but taking lists of 'Resolver's instead of a single list.
array' :: (Alternative f, Monad f) => Text -> f [[Resolver f]] -> Resolver f
array' name resolvs = arrayA' name $ \case
[] -> resolvs
_ -> empty
-- | Like 'array'' but also taking 'Argument's.
arrayA'
:: (Alternative f, Monad f)
=> Text -> ([Argument] -> f [[Resolver f]]) -> Resolver f
arrayA' name f fld@(Field _ _ args _ sels) = do
resolvs <- f args
withField name (joinErrs $ traverse (flip resolvers $ fields sels) $ resolvs) fld
-- | Represents one of a finite set of possible values. -- | Represents one of a finite set of possible values.
-- Used in place of a 'scalar' when the possible responses are easily enumerable. -- Used in place of a 'scalar' when the possible responses are easily enumerable.
enum :: Alternative f => Text -> f [Text] -> Resolver f enum :: Alternative f => Text -> f [Text] -> Resolver f