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

Make alternate Schema functions work with AST.Core

Browse Source
This commit is contained in:
Danny Navarro 2017-03-01 21:04:35 -03:00
parent 1327bcf7f7
commit 5954962de1
No known key found for this signature in database
GPG Key ID: 81E5F99780FA6A32
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Data/GraphQL/Schema.hs
View File

@ -76,9 +76,9 @@ object' name resolvs = objectA' name $ \case
objectA'
:: (Alternative f, Monad f)
=> Text -> ([Argument] -> f [Resolver f]) -> Resolver f
objectA' name f fld@(Field _ _ args _ sels) = do
objectA' name f fld@(Field _ _ args flds) = do
resolvs <- f args
withField name (resolvers resolvs $ fields sels) fld
withField name (resolve resolvs flds) fld
-- | A scalar represents a primitive value, like a string or an integer.
@ -116,9 +116,9 @@ array' name resolvs = arrayA' name $ \case
arrayA'
:: (Alternative f, Monad f)
=> Text -> ([Argument] -> f [[Resolver f]]) -> Resolver f
arrayA' name f fld@(Field _ _ args _ sels) = do
arrayA' name f fld@(Field _ _ args sels) = do
resolvs <- f args
withField name (joinErrs $ traverse (flip resolvers $ fields sels) $ resolvs) fld
withField name (traverse (`resolve` sels) resolvs) fld
-- | Represents one of a finite set of possible values.
-- Used in place of a 'scalar' when the possible responses are easily enumerable.