Add homePlanet to test schema

tests/Test/StarWars/Data.hs

@@ -70,7 +70,7 @@ luke' = Human
       , _friends    = ["1002","1003","2000","2001"]
       , _appearsIn  = [4,5,6]
       }
-  , homePlanet = "Tatoonie"
+  , homePlanet = "Tatooine"
   }
 
 vader :: Human

tests/Test/StarWars/QueryTests.hs

@@ -18,8 +18,6 @@ import Test.StarWars.Schema
 -- * Test
 -- See https://github.com/graphql/graphql-js/blob/master/src/__tests__/starWarsQueryTests.js
 
-
-
 test :: TestTree
 test = testGroup "Star Wars Query Tests"
   [ testGroup "Basic Queries"
@@ -206,7 +204,7 @@ test = testGroup "Star Wars Query Tests"
         , "leia" .= object [leiaName]
         ]]
   , testGroup "Fragments for complex queries"
-    [  testCase "Aliases to query for duplicate content" . testQuery
+    [ testCase "Aliases to query for duplicate content" . testQuery
         [r| query DuplicateFields {
               luke: human(id: "1000") {
                 name

tests/Test/StarWars/Schema.hs

@@ -42,5 +42,6 @@ character char =
   , Schema.scalar "name"      $ name char
   , Schema.array  "friends"   $ character <$> getFriends char
   , Schema.enum   "appearsIn" . traverse getEpisode $ appearsIn char
-  , Schema.scalar   "secretBackstory" $ secretBackstory char
+  , Schema.scalar "secretBackstory" $ secretBackstory char
+  , Schema.scalar "homePlanet" $ either mempty homePlanet char
   ]