diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-02-01 20:46:35 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-02-01 20:46:35 +0100 |
| commit | 67bebf853ca5a248358ea1854124a46b70c677cd (patch) | |
| tree | b103bf025a1d0f48c2524dd3c2237ff13fd99ec5 /tests/Test/StarWars/QuerySpec.hs | |
| parent | e8b82122c646ba159146c986cc8983d66f790142 (diff) | |
| download | graphql-67bebf853ca5a248358ea1854124a46b70c677cd.tar.gz | |
Replace MonadIO constraint with just Monad
And make the tests use Identity instead of IO.
Diffstat (limited to 'tests/Test/StarWars/QuerySpec.hs')
| -rw-r--r-- | tests/Test/StarWars/QuerySpec.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/Test/StarWars/QuerySpec.hs b/tests/Test/StarWars/QuerySpec.hs index 4f92801..45fcf42 100644 --- a/tests/Test/StarWars/QuerySpec.hs +++ b/tests/Test/StarWars/QuerySpec.hs @@ -6,6 +6,7 @@ module Test.StarWars.QuerySpec import qualified Data.Aeson as Aeson import Data.Aeson ((.=)) +import Data.Functor.Identity (Identity(..)) import qualified Data.HashMap.Strict as HashMap import Data.Text (Text) import Language.GraphQL @@ -357,7 +358,8 @@ spec = describe "Star Wars Query Tests" $ do alderaan = "homePlanet" .= ("Alderaan" :: Text) testQuery :: Text -> Aeson.Value -> Expectation -testQuery q expected = graphql schema q >>= flip shouldBe expected +testQuery q expected = runIdentity (graphql schema q) `shouldBe` expected testQueryParams :: Subs -> Text -> Aeson.Value -> Expectation -testQueryParams f q expected = graphqlSubs schema f q >>= flip shouldBe expected +testQueryParams f q expected = + runIdentity (graphqlSubs schema f q) `shouldBe` expected |