From 7c0b0ace4dacbb581669f88b83b9643a83fc797a Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 7 Oct 2020 05:24:51 +0200 Subject: Collect types once the schema is created --- tests/Language/GraphQL/ExecuteSpec.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'tests/Language/GraphQL/ExecuteSpec.hs') diff --git a/tests/Language/GraphQL/ExecuteSpec.hs b/tests/Language/GraphQL/ExecuteSpec.hs index e6dd8d9..f6e3e6f 100644 --- a/tests/Language/GraphQL/ExecuteSpec.hs +++ b/tests/Language/GraphQL/ExecuteSpec.hs @@ -26,12 +26,7 @@ import Text.Megaparsec (parse) import Text.RawString.QQ (r) philosopherSchema :: Schema (Either SomeException) -philosopherSchema = Schema - { query = queryType - , mutation = Nothing - , subscription = Just subscriptionType - , directives = HashMap.empty - } +philosopherSchema = schema queryType Nothing (Just subscriptionType) mempty queryType :: Out.ObjectType (Either SomeException) queryType = Out.ObjectType "Query" Nothing [] -- cgit v1.2.3