From eb90a4091c1f2586640ee49d6f91fc83c05239f6 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 24 May 2020 13:51:00 +0200 Subject: Check point --- tests/Language/GraphQL/SchemaSpec.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'tests/Language/GraphQL/SchemaSpec.hs') diff --git a/tests/Language/GraphQL/SchemaSpec.hs b/tests/Language/GraphQL/SchemaSpec.hs index a5d37c0..9bc5530 100644 --- a/tests/Language/GraphQL/SchemaSpec.hs +++ b/tests/Language/GraphQL/SchemaSpec.hs @@ -10,16 +10,15 @@ import qualified Data.Sequence as Sequence import Language.GraphQL.AST.Core import Language.GraphQL.Error import Language.GraphQL.Schema -import qualified Language.GraphQL.Type as Type -import Language.GraphQL.Type.Definition +import qualified Language.GraphQL.Type.Out as Out import Test.Hspec (Spec, describe, it, shouldBe) spec :: Spec spec = describe "resolve" $ it "ignores invalid __typename" $ do - let resolver = NestingResolver $ pure $ object - [ wrappedObject "field" $ pure $ Type.S "T" + let resolver = pure $ object + [ Resolver "field" $ pure $ Out.String "T" ] schema = HashMap.singleton "__typename" resolver fields = Sequence.singleton -- cgit v1.2.3