From 30d6a0a58dcdd20bf9ef555d5fc476436f520f85 Mon Sep 17 00:00:00 2001 From: Dmitrii Skurikhin Date: Tue, 31 Mar 2020 10:04:34 +0300 Subject: encode null value as "null" --- src/Language/GraphQL/AST/Encoder.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Language') diff --git a/src/Language/GraphQL/AST/Encoder.hs b/src/Language/GraphQL/AST/Encoder.hs index 9b293bf..f5bfcc3 100644 --- a/src/Language/GraphQL/AST/Encoder.hs +++ b/src/Language/GraphQL/AST/Encoder.hs @@ -205,7 +205,7 @@ value _ (Full.Variable x) = variable x value _ (Full.Int x) = Builder.toLazyText $ decimal x value _ (Full.Float x) = Builder.toLazyText $ realFloat x value _ (Full.Boolean x) = booleanValue x -value _ Full.Null = mempty +value _ Full.Null = "null" value formatter (Full.String string) = stringValue formatter string value _ (Full.Enum x) = Lazy.Text.fromStrict x value formatter (Full.List x) = listValue formatter x -- cgit v1.2.3