Use Seq as base monad in the validator

It is more natural to implement the logic: try to apply each rule to
each node.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Language/GraphQL/Execute/Transform.hs b/src/Language/GraphQL/Execute/Transform.hs
index 6c7c141..64259ec 100644
--- a/src/Language/GraphQL/Execute/Transform.hs
+++ b/src/Language/GraphQL/Execute/Transform.hs
@@ -304,7 +304,7 @@ field (Full.Field alias name arguments' directives' selections _) = do
     let field' = Field alias name fieldArguments fieldSelections
     pure $ field' <$ fieldDirectives
   where
-    go arguments (Full.Argument name' value') =
+    go arguments (Full.Argument name' value' _) =
         inputField arguments name' value'
 
 fragmentSpread
@@ -363,7 +363,7 @@ directives = traverse directive
     directive (Full.Directive directiveName directiveArguments)
         = Definition.Directive directiveName . Type.Arguments
         <$> foldM go HashMap.empty directiveArguments
-    go arguments (Full.Argument name value') = do
+    go arguments (Full.Argument name value' _) = do
         substitutedValue <- value value'
         return $ HashMap.insert name substitutedValue arguments