Move AST to AST.Document

2019-12-28 07:07:58 +01:00
parent 78ee76f9d5
commit fdf5914626
7 changed files with 232 additions and 188 deletions
--- a/tests/Language/GraphQL/AST/EncoderSpec.hs
+++ b/tests/Language/GraphQL/AST/EncoderSpec.hs
@ -35,8 +35,7 @@ spec = do
        it "indents block strings in arguments" $
            let arguments = [Argument "message" (String "line1\nline2")]
                field = Field Nothing "field" arguments [] []
-                set = OperationSelectionSet $ pure field
-                operation = DefinitionOperation set
+                operation = DefinitionOperation $ SelectionSet $ pure field
             in definition pretty operation `shouldBe` [r|{
  field(message: """
    line1