diff options
Diffstat (limited to 'Data/GraphQL/Schema.hs')
| -rw-r--r-- | Data/GraphQL/Schema.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Data/GraphQL/Schema.hs b/Data/GraphQL/Schema.hs index d11a637..2646bac 100644 --- a/Data/GraphQL/Schema.hs +++ b/Data/GraphQL/Schema.hs @@ -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. |