diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-07-02 07:33:03 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-07-02 07:33:03 +0200 |
| commit | 2f4310268a12e46911e3c3e9c2044ad1e46ae9f6 (patch) | |
| tree | bfb73fab1b2689fd1ee0c58554ee9a851c5a64de /src/Language/GraphQL/Execute | |
| parent | 8b164c4844da128dc5119febc3defb1ebdf2cc3a (diff) | |
| download | graphql-2f4310268a12e46911e3c3e9c2044ad1e46ae9f6.tar.gz | |
Merge Trans and Type.Out modules
Diffstat (limited to 'src/Language/GraphQL/Execute')
| -rw-r--r-- | src/Language/GraphQL/Execute/Execution.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Language/GraphQL/Execute/Execution.hs b/src/Language/GraphQL/Execute/Execution.hs index 5e53311..2b12c43 100644 --- a/src/Language/GraphQL/Execute/Execution.hs +++ b/src/Language/GraphQL/Execute/Execution.hs @@ -22,7 +22,6 @@ import Language.GraphQL.AST (Name) import Language.GraphQL.Error import Language.GraphQL.Execute.Coerce import qualified Language.GraphQL.Execute.Transform as Transform -import Language.GraphQL.Trans import qualified Language.GraphQL.Type as Type import qualified Language.GraphQL.Type.In as In import qualified Language.GraphQL.Type.Out as Out @@ -32,12 +31,15 @@ import Prelude hiding (null) resolveFieldValue :: Monad m => Type.Value -> Type.Subs - -> ResolverT m a + -> Type.ResolverT m a -> m (Either Text a) resolveFieldValue result args = - flip runReaderT (Context {arguments = Type.Arguments args, values = result}) - . runExceptT - . runResolverT + flip runReaderT context . runExceptT . Type.runResolverT + where + context = Type.Context + { Type.arguments = Type.Arguments args + , Type.values = result + } collectFields :: Monad m => Out.ObjectType m |