From 91bd2d0d8155469b28749a6458e0f7a9279e3698 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 19 Jun 2020 10:53:41 +0200 Subject: Fix list input coercion --- tests/Test/DirectiveSpec.hs | 3 +-- tests/Test/FragmentSpec.hs | 3 +-- tests/Test/RootOperationSpec.hs | 3 +-- tests/Test/StarWars/Schema.hs | 3 +-- 4 files changed, 4 insertions(+), 8 deletions(-) (limited to 'tests/Test') diff --git a/tests/Test/DirectiveSpec.hs b/tests/Test/DirectiveSpec.hs index ca1103b..b147d77 100644 --- a/tests/Test/DirectiveSpec.hs +++ b/tests/Test/DirectiveSpec.hs @@ -8,9 +8,8 @@ import Data.Aeson (object, (.=)) import qualified Data.Aeson as Aeson import qualified Data.HashMap.Strict as HashMap import Language.GraphQL -import Language.GraphQL.Type.Definition +import Language.GraphQL.Type import qualified Language.GraphQL.Type.Out as Out -import Language.GraphQL.Type.Schema (Schema(..)) import Test.Hspec (Spec, describe, it, shouldBe) import Text.RawString.QQ (r) diff --git a/tests/Test/FragmentSpec.hs b/tests/Test/FragmentSpec.hs index 0737706..2924e63 100644 --- a/tests/Test/FragmentSpec.hs +++ b/tests/Test/FragmentSpec.hs @@ -9,9 +9,8 @@ import qualified Data.Aeson as Aeson import qualified Data.HashMap.Strict as HashMap import Data.Text (Text) import Language.GraphQL -import Language.GraphQL.Type.Definition +import Language.GraphQL.Type import qualified Language.GraphQL.Type.Out as Out -import Language.GraphQL.Type.Schema import Test.Hspec ( Spec , describe diff --git a/tests/Test/RootOperationSpec.hs b/tests/Test/RootOperationSpec.hs index 922e098..0e534fc 100644 --- a/tests/Test/RootOperationSpec.hs +++ b/tests/Test/RootOperationSpec.hs @@ -9,9 +9,8 @@ import qualified Data.HashMap.Strict as HashMap import Language.GraphQL import Test.Hspec (Spec, describe, it, shouldBe) import Text.RawString.QQ (r) -import Language.GraphQL.Type.Definition +import Language.GraphQL.Type import qualified Language.GraphQL.Type.Out as Out -import Language.GraphQL.Type.Schema hatType :: Out.ObjectType IO hatType = Out.ObjectType "Hat" Nothing [] diff --git a/tests/Test/StarWars/Schema.hs b/tests/Test/StarWars/Schema.hs index c9f1bed..5fcdf3e 100644 --- a/tests/Test/StarWars/Schema.hs +++ b/tests/Test/StarWars/Schema.hs @@ -12,10 +12,9 @@ import qualified Data.HashMap.Strict as HashMap import Data.Maybe (catMaybes) import Data.Text (Text) import Language.GraphQL.Trans -import Language.GraphQL.Type.Definition +import Language.GraphQL.Type import qualified Language.GraphQL.Type.In as In import qualified Language.GraphQL.Type.Out as Out -import Language.GraphQL.Type.Schema (Schema(..)) import Test.StarWars.Data import Prelude hiding (id) -- cgit v1.2.3