3 files changed, 15 insertions, 9 deletions
diff --git a/testsuite/tests/ghci/scripts/T4175.stdout b/testsuite/tests/ghci/scripts/T4175.stdout
index cea9a01264..7c063a6481 100644
--- a/testsuite/tests/ghci/scripts/T4175.stdout
+++ b/testsuite/tests/ghci/scripts/T4175.stdout
@@ -2,7 +2,9 @@ type family A a b :: * 	-- Defined at T4175.hs:7:1
 type instance A (B a) b = () 	-- Defined at T4175.hs:10:1
 type instance A (Maybe a) a = a 	-- Defined at T4175.hs:9:1
 type instance A Int Int = () 	-- Defined at T4175.hs:8:1
-data family B a 	-- Defined at T4175.hs:12:1
+type role B nominal
+data family B a
+  	-- Defined at T4175.hs:12:1
 instance G B -- Defined at T4175.hs:34:10
 data instance B () = MkB 	-- Defined at T4175.hs:13:15
 type instance A (B a) b = () 	-- Defined at T4175.hs:10:1
diff --git a/testsuite/tests/ghci/scripts/T5417.stdout b/testsuite/tests/ghci/scripts/T5417.stdout
index 06329d9a1d..2640c4e04c 100644
--- a/testsuite/tests/ghci/scripts/T5417.stdout
+++ b/testsuite/tests/ghci/scripts/T5417.stdout
@@ -1,7 +1,9 @@
-data B1 a = B1 a
-data instance C.F (B1 a) = B2 a
-data family D a
-class C.C1 a where
-  data family C.F a
-  	-- Defined at T5417a.hs:5:5
-data instance C.F (B1 a) = B2 a 	-- Defined at T5417.hs:8:10
+data B1 a = B1 a
+data instance C.F (B1 a) = B2 a
+type role D nominal
+data family D a
+class C.C1 a where
+  type role C.F nominal
+  data family C.F a
+  	-- Defined at T5417a.hs:5:5
+data instance C.F (B1 a) = B2 a 	-- Defined at T5417.hs:8:10
diff --git a/testsuite/tests/ghci/scripts/T8674.stdout b/testsuite/tests/ghci/scripts/T8674.stdout
index 45d4f0af0e..6c13176e66 100644
--- a/testsuite/tests/ghci/scripts/T8674.stdout
+++ b/testsuite/tests/ghci/scripts/T8674.stdout
@@ -1,3 +1,5 @@
-data family Sing (a :: k) 	-- Defined at T8674.hs:4:1
+type role Sing nominal
+data family Sing (a :: k)
+  	-- Defined at T8674.hs:4:1
 data instance Sing Bool = SBool 	-- Defined at T8674.hs:6:15
 data instance Sing a = SNil 	-- Defined at T8674.hs:5:15