1 files changed, 4 insertions, 3 deletions
diff --git a/testsuite/tests/ghci/scripts/T8357.hs b/testsuite/tests/ghci/scripts/T8357.hs
index 82a34afdc6..322ec11e19 100644
--- a/testsuite/tests/ghci/scripts/T8357.hs
+++ b/testsuite/tests/ghci/scripts/T8357.hs
@@ -5,11 +5,12 @@
 {-# LANGUAGE TypeOperators #-}
 module T8357 where
 
+import Data.Kind (Type)
 import GHC.TypeLits 
 
 data (:::) (sy :: Symbol) ty 
 data Key (sy :: Symbol) 
-data Rec (rs :: [*])
+data Rec (rs :: [Type])
 
 (*=) :: Key sy -> ty -> Rec '[sy ::: ty]
 (*=) = undefined
@@ -17,7 +18,7 @@ data Rec (rs :: [*])
 (.*.) :: (Union xs ys ~ rs) => Rec xs -> Rec ys -> Rec rs
 (.*.) = undefined
 
-type family Union (xs :: [*]) (ys :: [*]) :: [*]  where
+type family Union (xs :: [Type]) (ys :: [Type]) :: [Type]  where
     Union ((sy ::: t) ': xs) ys = (sy ::: t) ': Union xs ys
     Union '[] ys = ys
 
@@ -30,4 +31,4 @@ fBar = undefined
 
 foo = fFoo *= "foo"
 bar = fBar *= "bar"
-both = foo .*. bar
-\ No newline at end of file
+both = foo .*. bar