From 8b09c8aa76cef5c56811a69aa0fd629186d9f9d9 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Fri, 3 Feb 2017 20:08:40 -0300 Subject: Make operation name optional --- Data/GraphQL/Encoder.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Data/GraphQL/Encoder.hs') diff --git a/Data/GraphQL/Encoder.hs b/Data/GraphQL/Encoder.hs index 083a31d..924bdea 100644 --- a/Data/GraphQL/Encoder.hs +++ b/Data/GraphQL/Encoder.hs @@ -22,9 +22,9 @@ definition (DefinitionFragment x) = fragmentDefinition x operationDefinition :: OperationDefinition -> Text operationDefinition (OperationSelectionSet sels) = selectionSet sels operationDefinition (OperationDefinition Query name vars dirs sels) = - "query " <> node name vars dirs sels + "query " <> node (fold name) vars dirs sels operationDefinition (OperationDefinition Mutation name vars dirs sels) = - "mutation " <> node name vars dirs sels + "mutation " <> node (fold name) vars dirs sels node :: Name -> VariableDefinitions -> Directives -> SelectionSet -> Text node name vars dirs sels = -- cgit v1.2.3