From c2c57b636392ae67a118ce5be04ad8f4b1304ed5 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 9 Sep 2020 17:04:31 +0200
Subject: Validate all fragments are used

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

(limited to 'tests/Language/GraphQL/AST/EncoderSpec.hs')

diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs
index 85add18..9326fd1 100644
--- 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: """
-- 
cgit v1.2.3