From bf2e4925b45991476c430bd635d8fbabe7cbecbf Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 2 Oct 2022 11:38:53 +0200
Subject: Add operation type encoder

---
 tests/Language/GraphQL/AST/EncoderSpec.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests/Language/GraphQL/AST/EncoderSpec.hs')

diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs
index bc6aac4..febd6fd 100644
--- 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"
-- 
cgit v1.2.3