Testsuite wibbles around #9200

testsuite/tests/ghci/scripts/T7939.hs

@@ -22,6 +22,6 @@ type family K a where
   K '[] = Nothing
   K (h ': t) = Just h
 
-type family L (a :: k) b :: k where
+type family L (a :: k) (b :: *) :: k where
   L Int Int = Bool
-  L Maybe Bool = IO
\ No newline at end of file
+  L Maybe Bool = IO

testsuite/tests/indexed-types/should_fail/ClosedFam3.hs-boot

@@ -9,5 +9,5 @@ type family Bar a where
   Bar Int = Bool
   Bar Double = Char
 
-type family Baz (a :: k) where
-  Baz Int = Bool
\ No newline at end of file
+type family Baz (a :: k) :: * where
+  Baz Int = Bool

testsuite/tests/polykinds/T7053.hs

-{-# LANGUAGE PolyKinds #-}
+{-# LANGUAGE PolyKinds, GADTs #-}
 
 module T7053 where
 

testsuite/tests/polykinds/T7053.stderr

-
-T7053.hs:6:52:
-    Kind occurs check
-    The first argument of ‘a’ should have kind ‘k0’,
-      but ‘b’ has kind ‘k0 -> k1’
-    In the type ‘TypeRep (a b)’
-    In the definition of data constructor ‘TyApp’
-    In the data declaration for ‘TypeRep’

testsuite/tests/polykinds/all.T

@@ -54,7 +54,7 @@ test('T6137', normal, compile,[''])
 test('T6093', normal, compile,[''])
 test('T6049', normal, compile,[''])
 test('T6129', normal, compile_fail,[''])
-test('T7053', normal, compile_fail,[''])
+test('T7053', normal, compile,[''])
 test('T7053a', normal, compile,[''])
 test('T7020', normal, compile,[''])
 test('T7022', normal, run_command, ['$MAKE -s --no-print-directory T7022'])