From 6fe9eb72e42fb4ae36435324148e8f96e871a26c Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 18 Jun 2021 06:51:14 +0200 Subject: Fix merging fields with arguments executeField shouldn't assume that a selection has only one field with a given name, but it should take the first field. The underlying cause is a wrong pattern, which (because of the laziness) is executed only if the field has arguments. --- tests/Language/GraphQL/ExecuteSpec.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'tests/Language/GraphQL') diff --git a/tests/Language/GraphQL/ExecuteSpec.hs b/tests/Language/GraphQL/ExecuteSpec.hs index 815e315..a31b0a2 100644 --- a/tests/Language/GraphQL/ExecuteSpec.hs +++ b/tests/Language/GraphQL/ExecuteSpec.hs @@ -21,7 +21,9 @@ import Language.GraphQL.Error import Language.GraphQL.Execute (execute) import qualified Language.GraphQL.Type.Schema as Schema import Language.GraphQL.Type +import qualified Language.GraphQL.Type.In as In import qualified Language.GraphQL.Type.Out as Out +import Prelude hiding (id) import Test.Hspec (Spec, context, describe, it, shouldBe) import Text.Megaparsec (parse) import Text.RawString.QQ (r) @@ -43,7 +45,9 @@ queryType = Out.ObjectType "Query" Nothing [] $ pure $ Object mempty where philosopherField = - Out.Field Nothing (Out.NonNullObjectType philosopherType) HashMap.empty + Out.Field Nothing (Out.NonNullObjectType philosopherType) + $ HashMap.singleton "id" + $ In.Argument Nothing (In.NamedScalarType id) Nothing musicType :: Out.ObjectType (Either SomeException) musicType = Out.ObjectType "Music" Nothing [] -- cgit v1.2.3