From 93a04032886976b540f5fdb1417bd085a642f772 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 3 Jun 2020 07:20:38 +0200 Subject: Resolve abstract types Objects that can be a part of an union or interface should return __typename as string. --- tests/Test/RootOperationSpec.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/Test/RootOperationSpec.hs') diff --git a/tests/Test/RootOperationSpec.hs b/tests/Test/RootOperationSpec.hs index 3b21788..922e098 100644 --- a/tests/Test/RootOperationSpec.hs +++ b/tests/Test/RootOperationSpec.hs @@ -16,7 +16,7 @@ import Language.GraphQL.Type.Schema hatType :: Out.ObjectType IO hatType = Out.ObjectType "Hat" Nothing [] $ HashMap.singleton "circumference" - $ Out.Field Nothing (Out.NamedScalarType int) mempty + $ Out.Resolver (Out.Field Nothing (Out.NamedScalarType int) mempty) $ pure $ Int 60 schema :: Schema IO @@ -28,10 +28,10 @@ schema = Schema [ ("circumference", Int 60) ] incrementField = HashMap.singleton "incrementCircumference" - $ Out.Field Nothing (Out.NamedScalarType int) mempty + $ Out.Resolver (Out.Field Nothing (Out.NamedScalarType int) mempty) $ pure $ Int 61 hatField = HashMap.singleton "garment" - $ Out.Field Nothing (Out.NamedObjectType hatType) mempty garment + $ Out.Resolver (Out.Field Nothing (Out.NamedObjectType hatType) mempty) garment spec :: Spec spec = -- cgit v1.2.3