From 4602eb1df3a713989b155f0140ff8909eb0370cf Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Mon, 28 Sep 2020 07:06:15 +0200 Subject: Validate arguments are defined --- tests/Test/StarWars/QuerySpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/Test/StarWars/QuerySpec.hs') diff --git a/tests/Test/StarWars/QuerySpec.hs b/tests/Test/StarWars/QuerySpec.hs index 8d744ab..f9b13d9 100644 --- a/tests/Test/StarWars/QuerySpec.hs +++ b/tests/Test/StarWars/QuerySpec.hs @@ -357,10 +357,10 @@ spec = describe "Star Wars Query Tests" $ do testQuery :: Text -> Aeson.Value -> Expectation testQuery q expected = - let Right (Right actual) = graphql schema q + let Right (Right actual) = graphql starWarsSchema q in Aeson.Object actual `shouldBe` expected testQueryParams :: Aeson.Object -> Text -> Aeson.Value -> Expectation testQueryParams f q expected = - let Right (Right actual) = graphqlSubs schema Nothing f q + let Right (Right actual) = graphqlSubs starWarsSchema Nothing f q in Aeson.Object actual `shouldBe` expected -- cgit v1.2.3