From f54e9451d20d020632fb3481087af2bcbff6033d Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 14 Aug 2019 08:49:07 +0200 Subject: Release 0.5.0.0 --- src/Language/GraphQL/Encoder.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Language/GraphQL/Encoder.hs') diff --git a/src/Language/GraphQL/Encoder.hs b/src/Language/GraphQL/Encoder.hs index 71c7145..11115b1 100644 --- a/src/Language/GraphQL/Encoder.hs +++ b/src/Language/GraphQL/Encoder.hs @@ -5,6 +5,7 @@ module Language.GraphQL.Encoder ( Formatter , definition + , directive , document , minified , pretty @@ -162,17 +163,16 @@ fragmentDefinition formatter (FragmentDefinition name tc dirs sels) <> eitherFormat formatter " " mempty <> selectionSet formatter sels --- * Directives - -directives :: Formatter -> Directives -> Text -directives formatter@(Pretty _) = Text.Lazy.cons ' ' . spaces (directive formatter) -directives Minified = spaces (directive Minified) +-- * Miscellaneous +-- | Converts a 'Directive' into a string. directive :: Formatter -> Directive -> Text directive formatter (Directive name args) = "@" <> Text.Lazy.fromStrict name <> optempty (arguments formatter) args --- * Miscellaneous +directives :: Formatter -> Directives -> Text +directives formatter@(Pretty _) = Text.Lazy.cons ' ' . spaces (directive formatter) +directives Minified = spaces (directive Minified) -- | Converts a 'Value' into a string. value :: Formatter -> Value -> Text -- cgit v1.2.3