diff options
| author | Danny Navarro <j@dannynavarro.net> | 2016-02-05 12:54:04 +0100 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2016-02-05 12:54:04 +0100 |
| commit | 53e101f35e9ad743e8ce4ab4f3ffc2a7bd2fc4c1 (patch) | |
| tree | 765e28bc1611aa95571a5fd19acfb01ddaa0fb23 /tests/Test/StarWars.hs | |
| parent | c81ddb03353c65abaea1778159b0a7c37ffe38a8 (diff) | |
| download | graphql-53e101f35e9ad743e8ce4ab4f3ffc2a7bd2fc4c1.tar.gz | |
Simplify JSON notation in tests
Diffstat (limited to 'tests/Test/StarWars.hs')
| -rw-r--r-- | tests/Test/StarWars.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Test/StarWars.hs b/tests/Test/StarWars.hs index 8fe01ae..a6fa9ee 100644 --- a/tests/Test/StarWars.hs +++ b/tests/Test/StarWars.hs @@ -10,7 +10,7 @@ import Data.Traversable (traverse) import Control.Applicative (Alternative, (<|>), empty, liftA2) import Data.Maybe (catMaybes) -import qualified Data.Aeson as Aeson +import Data.Aeson (object, (.=)) import Data.Text (Text) import Test.Tasty (TestTree, testGroup) @@ -26,7 +26,7 @@ test :: TestTree test = testGroup "Basic Queries" [testCase "R2-D2" $ graphql schema "query HeroNameQuery{hero{name}}" - @?= Just (Aeson.Object [("hero", Aeson.Object [("name", "R2-D2")])]) + @?= Just (object ["hero" .= object ["name" .= ("R2-D2" :: Text)]]) ] -- * Schema |