Parse union definitions

2020-01-07 13:56:58 +01:00
parent 8efb08fda1
commit f4ed06741d
3 changed files with 69 additions and 32 deletions
--- a/tests/Language/GraphQL/AST/ParserSpec.hs
+++ b/tests/Language/GraphQL/AST/ParserSpec.hs
@ -69,3 +69,8 @@ spec = describe "Parser" $ do
              name(first: String, last: String): String
            }
        |]
+
+    it "parses minimal union type definition" $
+        parse document "" `shouldSucceedOn` [r|
+            union SearchResult = Photo | Person
+        |]