From 3373c94895c148ffec199842305e10528440e5bd Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 25 Sep 2020 21:57:25 +0200
Subject: Validate field selections on composite types

---
 tests/Test/StarWars/QuerySpec.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'tests/Test/StarWars/QuerySpec.hs')

diff --git a/tests/Test/StarWars/QuerySpec.hs b/tests/Test/StarWars/QuerySpec.hs
index 95b18d3..8d744ab 100644
--- a/tests/Test/StarWars/QuerySpec.hs
+++ b/tests/Test/StarWars/QuerySpec.hs
@@ -23,9 +23,9 @@ spec = describe "Star Wars Query Tests" $ do
       it "R2-D2 hero" $ testQuery
         [r| query HeroNameQuery {
             hero {
-                id
-            }
+              id
             }
+          }
         |]
         $ Aeson.object
             [ "data" .= Aeson.object
@@ -35,13 +35,13 @@ spec = describe "Star Wars Query Tests" $ do
       it "R2-D2 ID and friends" $ testQuery
         [r| query HeroNameAndFriendsQuery {
             hero {
-                id
+              id
+              name
+              friends {
                 name
-                friends {
-                  name
-                }
-            }
+              }
             }
+          }
         |]
         $ Aeson.object [ "data" .= Aeson.object [
             "hero" .= Aeson.object
@@ -266,7 +266,7 @@ spec = describe "Star Wars Query Tests" $ do
             query HeroNameQuery {
               hero {
                 name
-                  secretBackstory
+                secretBackstory
               }
             }
           |]
-- 
cgit v1.2.3