From c06d0b8e95ea4b87eab69da085cb32dbd052c1f0 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 26 May 2020 11:13:55 +0200 Subject: Add Union and Interface type definitions --- tests/Test/FragmentSpec.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/Test/FragmentSpec.hs') diff --git a/tests/Test/FragmentSpec.hs b/tests/Test/FragmentSpec.hs index 2fb12d2..1f765a4 100644 --- a/tests/Test/FragmentSpec.hs +++ b/tests/Test/FragmentSpec.hs @@ -51,14 +51,14 @@ hasErrors (Object object') = HashMap.member "errors" object' hasErrors _ = True shirtType :: Out.ObjectType IO -shirtType = Out.ObjectType "Shirt" Nothing +shirtType = Out.ObjectType "Shirt" Nothing [] $ HashMap.singleton resolverName $ Out.Field Nothing (Out.NamedScalarType string) mempty resolve where (Schema.Resolver resolverName resolve) = size hatType :: Out.ObjectType IO -hatType = Out.ObjectType "Hat" Nothing +hatType = Out.ObjectType "Hat" Nothing [] $ HashMap.singleton resolverName $ Out.Field Nothing (Out.NamedScalarType int) mempty resolve where @@ -69,7 +69,7 @@ toSchema (Schema.Resolver resolverName resolve) = Schema { query = queryType, mutation = Nothing } where unionMember = if resolverName == "Hat" then hatType else shirtType - queryType = Out.ObjectType "Query" Nothing + queryType = Out.ObjectType "Query" Nothing [] $ HashMap.singleton resolverName $ Out.Field Nothing (Out.NamedObjectType unionMember) mempty resolve -- cgit v1.2.3