diff options
| author | Danny Navarro <j@dannynavarro.net> | 2017-01-29 12:53:15 -0300 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2017-01-30 15:20:17 -0300 |
| commit | f35e1f949ab3ee718ab773baf9f38ac411d49a28 (patch) | |
| tree | 53d8c24acb1180eb0011baaf3ef49e2755002b07 /tests/Test/StarWars/Schema.hs | |
| parent | 337b620717e0231c18925712f5c5401588bb9736 (diff) | |
| download | graphql-f35e1f949ab3ee718ab773baf9f38ac411d49a28.tar.gz | |
Define Schema using Core AST
Also, temporarily remove error reporting to simplify execution. This should be
restored once the new execution model is nailed.
Diffstat (limited to 'tests/Test/StarWars/Schema.hs')
| -rw-r--r-- | tests/Test/StarWars/Schema.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/Test/StarWars/Schema.hs b/tests/Test/StarWars/Schema.hs index 29c123e..e816d63 100644 --- a/tests/Test/StarWars/Schema.hs +++ b/tests/Test/StarWars/Schema.hs @@ -19,7 +19,7 @@ schema = hero :| [human, droid] hero :: Alternative f => Resolver f hero = Schema.objectA "hero" $ \case [] -> character artoo - [Argument "episode" (ValueInt n)] -> character $ getHero (fromIntegral n) + [Argument "episode" (ValueInt n)] -> character . getHero $ fromIntegral n _ -> empty human :: Alternative f => Resolver f @@ -34,10 +34,10 @@ droid = Schema.objectA "droid" $ \case character :: Alternative f => Character -> [Resolver f] character char = - [ Schema.scalar "id" $ id_ char - , Schema.scalar "name" $ name char - , Schema.array "friends" $ character <$> getFriends char - , Schema.enum "appearsIn" . traverse getEpisode $ appearsIn char + [ Schema.scalar "id" $ id_ 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 "homePlanet" $ either mempty homePlanet char + , Schema.scalar "homePlanet" $ either mempty homePlanet char ] |