From 2172de37296119624ba6547b66f0d5bfe0eabf9b Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 23 Jun 2019 05:38:45 +0200 Subject: Enable mutations --- Data/GraphQL/Execute.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'Data/GraphQL/Execute.hs') diff --git a/Data/GraphQL/Execute.hs b/Data/GraphQL/Execute.hs index 413a3cb..3d60bef 100644 --- a/Data/GraphQL/Execute.hs +++ b/Data/GraphQL/Execute.hs @@ -32,7 +32,9 @@ document schema (op :| []) = operation schema op document _ _ = error "Multiple operations not supported yet" operation :: Alternative f => Schema f -> AST.Core.Operation -> f Aeson.Value -operation schema (AST.Core.Query flds) = - Aeson.Object . HashMap.singleton "data" - <$> Schema.resolve (NE.toList schema) (NE.toList flds) -operation _ _ = error "Mutations not supported yet" +operation schema (AST.Core.Query flds) + = Aeson.Object . HashMap.singleton "data" + <$> Schema.resolve (NE.toList schema) (NE.toList flds) +operation schema (AST.Core.Mutation flds) + = Aeson.Object . HashMap.singleton "data" + <$> Schema.resolve (NE.toList schema) (NE.toList flds) -- cgit v1.2.3