diff options
Diffstat (limited to 'src/Language/GraphQL/Execute.hs')
| -rw-r--r-- | src/Language/GraphQL/Execute.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Language/GraphQL/Execute.hs b/src/Language/GraphQL/Execute.hs index 2a1ff97..9dbfb36 100644 --- a/src/Language/GraphQL/Execute.hs +++ b/src/Language/GraphQL/Execute.hs @@ -29,15 +29,11 @@ execute execute schema subs doc = maybe transformError (document schema) $ Transform.document subs doc where - transformError = return $ Aeson.object - [("errors", Aeson.toJSON - [ Aeson.object [("message", "Schema transformation error.")] - ] - )] + transformError = return $ singleError "Schema transformation error." document :: MonadIO m => Schema m -> AST.Core.Document -> m Aeson.Value document schema (op :| []) = operation schema op -document _ _ = error "Multiple operations not supported yet" +document _ _ = return $ singleError "Multiple operations not supported yet." operation :: MonadIO m => Schema m -> AST.Core.Operation -> m Aeson.Value operation schema (AST.Core.Query flds) |