diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-07-19 07:36:06 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-07-19 07:36:06 +0200 |
| commit | b9d5b1fb1bdf634137f463186585bc51e540353b (patch) | |
| tree | 26b37de5a9f6592e8faaf97c11050c3661e734bf /tests/Test/StarWars | |
| parent | 09135c581aaae471f7d964bc2a3a141bef299097 (diff) | |
| download | graphql-b9d5b1fb1bdf634137f463186585bc51e540353b.tar.gz | |
Return a stream as well from graphql* functions
Diffstat (limited to 'tests/Test/StarWars')
| -rw-r--r-- | tests/Test/StarWars/QuerySpec.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/Test/StarWars/QuerySpec.hs b/tests/Test/StarWars/QuerySpec.hs index 301fb7c..95b18d3 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 actual = graphql schema q - in actual `shouldBe` expected + let Right (Right actual) = graphql schema q + in Aeson.Object actual `shouldBe` expected testQueryParams :: Aeson.Object -> Text -> Aeson.Value -> Expectation testQueryParams f q expected = - let Right actual = graphqlSubs schema Nothing f q - in actual `shouldBe` expected + let Right (Right actual) = graphqlSubs schema Nothing f q + in Aeson.Object actual `shouldBe` expected |