diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-05-23 06:46:21 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-05-23 21:49:57 +0200 |
| commit | 7cd48217187911855cd2ad473e58d11df0c69d48 (patch) | |
| tree | 4fe56da3d1c209ea070e75f10aa21cb00eada8f4 /src/Language/GraphQL/Execute.hs | |
| parent | 26cc53ce0678d48bf7d5550df65171e6bf5288d2 (diff) | |
| download | graphql-7cd48217187911855cd2ad473e58d11df0c69d48.tar.gz | |
Don't fail on invalid fragments and variables
Diffstat (limited to 'src/Language/GraphQL/Execute.hs')
| -rw-r--r-- | src/Language/GraphQL/Execute.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Language/GraphQL/Execute.hs b/src/Language/GraphQL/Execute.hs index 7513b6e..295cb44 100644 --- a/src/Language/GraphQL/Execute.hs +++ b/src/Language/GraphQL/Execute.hs @@ -54,7 +54,7 @@ document :: (Monad m, VariableValue a) document schema operationName subs document' = case Transform.document schema operationName subs document' of Left queryError -> pure $ singleError $ Transform.queryError queryError - Right (Transform.Document op _) -> operation schema op + Right (Transform.Document operation') -> operation schema operation' operation :: Monad m => Schema m @@ -65,7 +65,8 @@ operation = schemaOperation resolve queryFields = runCollectErrs . flip Schema.resolve queryFields . fmap getResolver - . Definition.fields + . fields + fields (Definition.ObjectType _ _ objectFields) = objectFields lookupError = pure $ singleError "Root operation type couldn't be found in the schema." schemaOperation Schema {query} (AST.Core.Query _ fields') = |