From bc6a7dddd1f4db7a6e43085abdd25a5a4c8692cb Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 18 Jul 2019 05:10:02 +0200 Subject: Reuse common types from AST.Core --- src/Language/GraphQL/Encoder.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Language/GraphQL/Encoder.hs') 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 -- cgit v1.2.3