From d930687a073f4209e6dd028363039a5869296d74 Mon Sep 17 00:00:00 2001
From: Sylvain Henry <sylvain@haskus.fr>
Date: Wed, 4 Nov 2020 16:01:35 +0100
Subject: Show missing field types (#18869)

---
 testsuite/tests/rename/should_compile/T5334.stderr | 6 ++++--
 testsuite/tests/rename/should_fail/T12229.stderr   | 3 ++-
 testsuite/tests/rename/should_fail/T5892a.stderr   | 3 ++-
 3 files changed, 8 insertions(+), 4 deletions(-)

(limited to 'testsuite/tests/rename')

diff --git a/testsuite/tests/rename/should_compile/T5334.stderr b/testsuite/tests/rename/should_compile/T5334.stderr
index 3e15e5b9f0..ef22a01608 100644
--- a/testsuite/tests/rename/should_compile/T5334.stderr
+++ b/testsuite/tests/rename/should_compile/T5334.stderr
@@ -1,6 +1,7 @@
 
 T5334.hs:7:5: warning: [-Wmissing-fields (in -Wdefault)]
-    • Fields of ‘T’ not initialised: b
+    • Fields of ‘T’ not initialised:
+        b :: Int
     • In the expression: T {..}
       In an equation for ‘t’:
           t = T {..}
@@ -8,6 +9,7 @@ T5334.hs:7:5: warning: [-Wmissing-fields (in -Wdefault)]
                 a = 1
 
 T5334.hs:14:5: warning: [-Wmissing-fields (in -Wdefault)]
-    • Fields of ‘S’ not initialised: y
+    • Fields of ‘S’ not initialised:
+        y :: Int
     • In the expression: S {x = 1}
       In an equation for ‘s’: s = S {x = 1}
diff --git a/testsuite/tests/rename/should_fail/T12229.stderr b/testsuite/tests/rename/should_fail/T12229.stderr
index 4fc8678c5c..6eb4de53e2 100644
--- a/testsuite/tests/rename/should_fail/T12229.stderr
+++ b/testsuite/tests/rename/should_fail/T12229.stderr
@@ -1,5 +1,6 @@
 
 T12229.hs:7:7: warning: [-Wmissing-fields (in -Wdefault)]
-    • Fields of ‘MkT’ not initialised: pi
+    • Fields of ‘MkT’ not initialised:
+        pi :: Float
     • In the expression: MkT {..}
       In an equation for ‘f’: f x = MkT {..}
diff --git a/testsuite/tests/rename/should_fail/T5892a.stderr b/testsuite/tests/rename/should_fail/T5892a.stderr
index f1041796d9..23e9deb18b 100644
--- a/testsuite/tests/rename/should_fail/T5892a.stderr
+++ b/testsuite/tests/rename/should_fail/T5892a.stderr
@@ -1,6 +1,7 @@
 
 T5892a.hs:12:8: error: [-Wmissing-fields (in -Wdefault), -Werror=missing-fields]
-    • Fields of ‘Node’ not initialised: subForest
+    • Fields of ‘Node’ not initialised:
+        subForest :: [Tree a]
     • In the expression: Node {..}
       In the expression: let rootLabel = [] in Node {..}
       In an equation for ‘foo’:
-- 
cgit v1.2.1