Encode unions

2023-01-08 17:33:25 +01:00
parent bb4375313e
commit ab4808c44d
2 changed files with 33 additions and 1 deletions
--- a/tests/Language/GraphQL/AST/EncoderSpec.hs
+++ b/tests/Language/GraphQL/AST/EncoderSpec.hs
@ -217,3 +217,15 @@ spec = do
                |]
                actual = typeSystemDefinition pretty definition'
             in actual `shouldBe` expected
+
+        it "encodes an enum definition" $
+            let definition' = Full.TypeDefinition
+                    $ Full.UnionTypeDefinition mempty "SearchResult" mempty
+                    $ Full.UnionMemberTypes ["Photo", "Person"]
+                expected = [gql|
+                  union SearchResult =
+                    | Photo
+                    | Person
+                |]
+                actual = typeSystemDefinition pretty definition'
+             in actual `shouldBe` expected