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/Parser.hs
+++ b/Data/GraphQL/Parser.hs
@ -169,8 +169,8 @@ booleanValue = True  <$ tok "true"
   <|> False <$ tok "false"

 -- TODO: Escape characters. Look at `jsstring_` in aeson package.
-stringValue :: Parser StringValue
-stringValue = StringValue <$> quotes (takeWhile (/= '"'))
+stringValue :: Parser Text
+stringValue = quotes (takeWhile (/= '"'))

 -- Notice it can be empty
 listValue :: Parser ListValue