diff options
Diffstat (limited to 'src/Language/GraphQL/Encoder.hs')
| -rw-r--r-- | src/Language/GraphQL/Encoder.hs | 12 |
1 files changed, 6 insertions, 6 deletions
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 |