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/Parser.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Data/GraphQL/Parser.hs') diff --git a/Data/GraphQL/Parser.hs b/Data/GraphQL/Parser.hs index 1f5b8e6..6658af0 100644 --- 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 -- cgit v1.2.3