From d8a731fe30ce800ac8347a902f38373d6cf689b2 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Mon, 22 Feb 2016 13:59:38 +0100 Subject: Remove `StringValue` type --- tests/Test/StarWars/Schema.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests') 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] -- cgit v1.2.3