diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-07-18 05:10:02 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-07-18 05:10:02 +0200 |
| commit | bc6a7dddd1f4db7a6e43085abdd25a5a4c8692cb (patch) | |
| tree | fd5a16e24996ea84b20c90b67291f687406095dc /src/Language/GraphQL/Encoder.hs | |
| parent | 74801b0483c9d1e1acf50e6945ebf7e725e93a6d (diff) | |
| download | graphql-bc6a7dddd1f4db7a6e43085abdd25a5a4c8692cb.tar.gz | |
Reuse common types from AST.Core
Diffstat (limited to 'src/Language/GraphQL/Encoder.hs')
| -rw-r--r-- | src/Language/GraphQL/Encoder.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Language/GraphQL/Encoder.hs b/src/Language/GraphQL/Encoder.hs index 266f314..c315091 100644 --- a/src/Language/GraphQL/Encoder.hs +++ b/src/Language/GraphQL/Encoder.hs @@ -41,10 +41,10 @@ variableDefinition :: VariableDefinition -> Text variableDefinition (VariableDefinition var ty dv) = variable var <> ":" <> type_ ty <> maybe mempty defaultValue dv -defaultValue :: DefaultValue -> Text +defaultValue :: Value -> Text defaultValue val = "=" <> value val -variable :: Variable -> Text +variable :: Name -> Text variable var = "$" <> var selectionSet :: SelectionSet -> Text @@ -113,10 +113,10 @@ booleanValue False = "false" stringValue :: Text -> Text stringValue = quotes -listValue :: ListValue -> Text +listValue :: [Value] -> Text listValue = bracketsCommas value -objectValue :: ObjectValue -> Text +objectValue :: [ObjectField] -> Text objectValue = bracesCommas objectField objectField :: ObjectField -> Text |