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"

tests/Test/StarWars/Schema.hs

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