diff options
| author | Eugen Wissner <belka@caraus.de> | 2022-10-02 11:38:53 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2022-10-02 11:38:53 +0200 |
| commit | bf2e4925b45991476c430bd635d8fbabe7cbecbf (patch) | |
| tree | d0dfc22f70a405283681a2e3c70be4a2d93bae65 /src | |
| parent | 2321d1a1bcb1974bafa3914f673252993377b5b1 (diff) | |
| download | graphql-bf2e4925b45991476c430bd635d8fbabe7cbecbf.tar.gz | |
Add operation type encoder
Diffstat (limited to 'src')
| -rw-r--r-- | src/Language/GraphQL/AST/Encoder.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Language/GraphQL/AST/Encoder.hs b/src/Language/GraphQL/AST/Encoder.hs index 4569823..54967ea 100644 --- a/src/Language/GraphQL/AST/Encoder.hs +++ b/src/Language/GraphQL/AST/Encoder.hs @@ -11,6 +11,7 @@ module Language.GraphQL.AST.Encoder , directive , document , minified + , operationType , pretty , type' , value @@ -34,7 +35,7 @@ import qualified Language.GraphQL.AST.Document as Full -- Use 'pretty' or 'minified' to construct the formatter. data Formatter = Minified - | Pretty Word + | Pretty !Word -- | Constructs a formatter for pretty printing. pretty :: Formatter @@ -294,6 +295,12 @@ nonNullType :: Full.NonNullType -> Lazy.Text nonNullType (Full.NonNullTypeNamed x) = Lazy.Text.fromStrict x <> "!" nonNullType (Full.NonNullTypeList x) = listType x <> "!" +-- | Produces lowercase operation type: query, mutation or subscription. +operationType :: Formatter -> Full.OperationType -> Lazy.Text +operationType _formatter Full.Query = "query" +operationType _formatter Full.Mutation = "mutation" +operationType _formatter Full.Subscription = "subscription" + -- * Internal between :: Char -> Char -> Lazy.Text -> Lazy.Text |