Add Semigroup and Monoid instances for Description

2022-12-27 10:37:34 +01:00
parent 3ce6e7da46
commit a96d4e6ef3
5 changed files with 39 additions and 2 deletions
--- a/tests/Language/GraphQL/AST/DocumentSpec.hs
+++ b/tests/Language/GraphQL/AST/DocumentSpec.hs
@ -18,3 +18,9 @@ spec = do
                    ]
                expected = "{ field1: 1.2, field2: null }"
             in show object `shouldBe` expected
+
+    describe "Description" $
+        it "keeps content when merging with no description" $
+            let expected = Description $ Just "Left description"
+                actual = expected <> Description Nothing
+             in actual `shouldBe` expected