From 61dbe6c7280a899b485146aa8557948417e78360 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 25 May 2020 07:41:21 +0200
Subject: Split input/output types and values into 2 modules

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

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

diff --git a/tests/Test/DirectiveSpec.hs b/tests/Test/DirectiveSpec.hs
index 250ef6e..9ff8d8c 100644
--- a/tests/Test/DirectiveSpec.hs
+++ b/tests/Test/DirectiveSpec.hs
@@ -17,9 +17,9 @@ experimentalResolver :: Schema IO
 experimentalResolver = Schema { query = queryType, mutation = Nothing }
   where
     resolver = pure $ Out.Int 5
-    queryType = ObjectType "Query" Nothing
+    queryType = Out.ObjectType "Query" Nothing
         $ HashMap.singleton "experimentalField"
-        $ Field Nothing (ScalarOutputType int) mempty resolver
+        $ Out.Field Nothing (Out.NamedScalarType int) mempty resolver
 
 emptyObject :: Value
 emptyObject = object
-- 
cgit v1.2.3