Validate all fragments are used

2020-09-09 17:04:31 +02:00
parent f6ff0ab9c7
commit c2c57b6363
10 changed files with 141 additions and 79 deletions
--- a/tests/Language/GraphQL/AST/EncoderSpec.hs
+++ b/tests/Language/GraphQL/AST/EncoderSpec.hs
@ -124,7 +124,7 @@ spec = do
            let arguments = [Argument "message" (String "line1\nline2")]
                field = Field Nothing "field" arguments [] [] $ Location 0 0
                operation = DefinitionOperation
-                    $ SelectionSet (pure field)
+                    $ SelectionSet (pure $ FieldSelection field)
                    $ Location 0 0
             in definition pretty operation `shouldBe` [r|{
  field(message: """