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/AST.hs
+++ b/Data/GraphQL/AST.hs
@ -68,14 +68,12 @@ data Value = ValueVariable Variable
           -- GraphQL Float is double precison
           | ValueFloat Double
           | ValueBoolean Bool
-           | ValueString StringValue
+           | ValueString Text
           | ValueEnum Name
           | ValueList ListValue
           | ValueObject ObjectValue
             deriving (Eq,Show)

-newtype StringValue = StringValue Text deriving (Eq,Show)
-
 newtype ListValue = ListValue [Value] deriving (Eq,Show)

 newtype ObjectValue = ObjectValue [ObjectField] deriving (Eq,Show)