From 4602eb1df3a713989b155f0140ff8909eb0370cf Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 28 Sep 2020 07:06:15 +0200
Subject: Validate arguments are defined

---
 tests/Test/DirectiveSpec.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'tests/Test/DirectiveSpec.hs')

diff --git a/tests/Test/DirectiveSpec.hs b/tests/Test/DirectiveSpec.hs
index 800189e..c115163 100644
--- a/tests/Test/DirectiveSpec.hs
+++ b/tests/Test/DirectiveSpec.hs
@@ -19,8 +19,7 @@ import Test.Hspec.GraphQL
 import Text.RawString.QQ (r)
 
 experimentalResolver :: Schema IO
-experimentalResolver = Schema
-    { query = queryType, mutation = Nothing, subscription = Nothing }
+experimentalResolver = schema queryType
   where
     queryType = Out.ObjectType "Query" Nothing []
         $ HashMap.singleton "experimentalField"
-- 
cgit v1.2.3