diff options
| author | Danny Navarro <j@dannynavarro.net> | 2016-02-22 13:59:38 +0100 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2016-02-22 13:59:38 +0100 |
| commit | d8a731fe30ce800ac8347a902f38373d6cf689b2 (patch) | |
| tree | e66eab79a62fb28a33b7ec6f5ecc6cba9be62927 /tests/Test/StarWars/Schema.hs | |
| parent | 770df827181f71b87aa286910cc7873a34edcede (diff) | |
| download | graphql-d8a731fe30ce800ac8347a902f38373d6cf689b2.tar.gz | |
Remove `StringValue` type
Diffstat (limited to 'tests/Test/StarWars/Schema.hs')
| -rw-r--r-- | tests/Test/StarWars/Schema.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Test/StarWars/Schema.hs b/tests/Test/StarWars/Schema.hs index ffe16ad..096ccb3 100644 --- a/tests/Test/StarWars/Schema.hs +++ b/tests/Test/StarWars/Schema.hs @@ -28,12 +28,12 @@ hero = Schema.objectA "hero" $ \case human :: Alternative f => Resolver f human = Schema.objectA "human" $ \case - [Argument "id" (ValueString (StringValue i))] -> character =<< getHuman i + [Argument "id" (ValueString i)] -> character =<< getHuman i _ -> empty droid :: Alternative f => Resolver f droid = Schema.objectA "droid" $ \case - [Argument "id" (ValueString (StringValue i))] -> character =<< getDroid i + [Argument "id" (ValueString i)] -> character =<< getDroid i _ -> empty character :: Alternative f => Character -> [Resolver f] |