Remove StringValue type

2016-02-22 13:59:38 +01:00
parent 770df82718
commit d8a731fe30
6 changed files with 8 additions and 11 deletions
--- 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