Add homePlanet to test schema

2016-12-18 11:43:45 -03:00
parent afb2fc4eb9
commit aa66236081
3 changed files with 4 additions and 5 deletions
--- a/tests/Test/StarWars/Schema.hs
+++ b/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
  ]