diff options
| author | Eugen Wissner <belka@caraus.de> | 2022-12-27 10:37:34 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2022-12-27 10:38:08 +0100 |
| commit | a96d4e6ef3b1020d239f0061af5861aadeb278fc (patch) | |
| tree | ae822d7ca7f3eb03a42ef23d000d9ba7da6d0913 /tests/Language/GraphQL/AST/DocumentSpec.hs | |
| parent | 3ce6e7da461030d7d6f4b356096492c072ce16e2 (diff) | |
| download | graphql-a96d4e6ef3b1020d239f0061af5861aadeb278fc.tar.gz | |
Add Semigroup and Monoid instances for Description
Diffstat (limited to 'tests/Language/GraphQL/AST/DocumentSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/AST/DocumentSpec.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/Language/GraphQL/AST/DocumentSpec.hs b/tests/Language/GraphQL/AST/DocumentSpec.hs index ca13e17..d09d6b1 100644 --- 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 |