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 --- Data/GraphQL/Execute.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Data/GraphQL/Execute.hs') diff --git a/Data/GraphQL/Execute.hs b/Data/GraphQL/Execute.hs index 8d0335d..47d1d03 100644 --- a/Data/GraphQL/Execute.hs +++ b/Data/GraphQL/Execute.hs @@ -37,5 +37,5 @@ substitute _ sel = sel -- TODO: Support different value types subsArg :: Schema.Subs -> Argument -> Maybe Argument subsArg subs (Argument n (ValueVariable (Variable v))) = - Argument n . ValueString . StringValue <$> subs v + Argument n . ValueString <$> subs v subsArg _ arg = Just arg -- cgit v1.2.3