Parse comments in the front of definitions

2020-07-09 08:11:12 +02:00
parent c9e265f72c
commit 28781586a5
3 changed files with 49 additions and 41 deletions
--- a/tests/Language/GraphQL/AST/ParserSpec.hs
+++ b/tests/Language/GraphQL/AST/ParserSpec.hs
@ -149,3 +149,13 @@ spec = describe "Parser" $ do
              title
            }
        |]
+
+    it "parses documents beginning with a comment" $
+        parse document "" `shouldSucceedOn` [r|
+            """
+            Query
+            """
+            type Query {
+                queryField: String
+            }
+        |]