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/Encoder.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Data/GraphQL/Encoder.hs') diff --git a/Data/GraphQL/Encoder.hs b/Data/GraphQL/Encoder.hs index 9eed849..2b7e239 100644 --- a/Data/GraphQL/Encoder.hs +++ b/Data/GraphQL/Encoder.hs @@ -106,8 +106,8 @@ booleanValue True = "true" booleanValue False = "false" -- TODO: Escape characters -stringValue :: StringValue -> Text -stringValue (StringValue v) = quotes v +stringValue :: Text -> Text +stringValue = quotes listValue :: ListValue -> Text listValue (ListValue vs) = bracketsCommas value vs -- cgit v1.2.3