Change execute' to shouldResolveTo helper method

2022-07-01 12:18:02 +02:00
parent 0dac9701bc
commit 2f19093803
4 changed files with 63 additions and 55 deletions
--- a/src/Language/GraphQL/AST/Encoder.hs
+++ b/src/Language/GraphQL/AST/Encoder.hs
@ -101,7 +101,7 @@ variableDefinition formatter variableDefinition' =
     in variable variableName
    <> eitherFormat formatter ": " ":"
    <> type' variableType
-    <> maybe mempty (defaultValue formatter) (Full.node <$> defaultValue')
+    <> maybe mempty (defaultValue formatter . Full.node) defaultValue'

 defaultValue :: Formatter -> Full.ConstValue -> Lazy.Text
 defaultValue formatter val