Add operation type encoder

2022-10-02 11:38:53 +02:00
parent 2321d1a1bc
commit bf2e4925b4
3 changed files with 16 additions and 1 deletions
--- a/tests/Language/GraphQL/AST/EncoderSpec.hs
+++ b/tests/Language/GraphQL/AST/EncoderSpec.hs
@ -173,3 +173,8 @@ spec = do
                |] '\n'
                actual = definition pretty operation
             in actual `shouldBe` expected
+
+    describe "operationType" $
+        it "produces lowercase mutation operation type" $
+            let actual = operationType pretty Full.Mutation
+             in actual `shouldBe` "mutation"