From fdf5914626ad172a8a459696f0114ef990c0d5cb Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sat, 28 Dec 2019 07:07:58 +0100
Subject: Move AST to AST.Document

---
 tests/Language/GraphQL/AST/EncoderSpec.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'tests/Language/GraphQL/AST')

diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs
index 619d7e3..00a875c 100644
--- 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
-- 
cgit v1.2.3