From 7c0b0ace4dacbb581669f88b83b9643a83fc797a Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 7 Oct 2020 05:24:51 +0200
Subject: Collect types once the schema is created

---
 tests/Language/GraphQL/ValidateSpec.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'tests/Language/GraphQL/ValidateSpec.hs')

diff --git a/tests/Language/GraphQL/ValidateSpec.hs b/tests/Language/GraphQL/ValidateSpec.hs
index 92b3001..3bfa018 100644
--- a/tests/Language/GraphQL/ValidateSpec.hs
+++ b/tests/Language/GraphQL/ValidateSpec.hs
@@ -22,12 +22,7 @@ import Text.Megaparsec (parse)
 import Text.RawString.QQ (r)
 
 petSchema :: Schema IO
-petSchema = Schema
-    { query = queryType
-    , mutation = Nothing
-    , subscription = Just subscriptionType
-    , directives = HashMap.empty
-    } 
+petSchema = schema queryType Nothing (Just subscriptionType) mempty
 
 queryType :: ObjectType IO
 queryType = ObjectType "Query" Nothing [] $ HashMap.fromList
-- 
cgit v1.2.3