Use Seq as base monad in the validator

It is more natural to implement the logic: try to apply each rule to each node.
2020-09-14 07:49:33 +02:00
parent 08998dbd93
commit 4c10ce9204
11 changed files with 123 additions and 137 deletions
--- a/tests/Language/GraphQL/AST/LexerSpec.hs
+++ b/tests/Language/GraphQL/AST/LexerSpec.hs
@@ -75,7 +75,7 @@ spec = describe "Lexer" $ do
            parse dollar "" "$" `shouldParse` "$"
            runBetween parens `shouldSucceedOn` "()"
            parse spread "" "..." `shouldParse` "..."
-            parse colon "" ":" `shouldParse` ":"
+            parse colon "" `shouldSucceedOn` ":"
            parse equals "" "=" `shouldParse` "="
            parse at "" "@" `shouldParse` "@"
            runBetween brackets `shouldSucceedOn` "[]"