Replace star with Type

src/Data/Vec.hs

@@ -18,6 +18,7 @@
 module Data.Vec where
 
 import Relation.Equality (gcastWith)
+import Data.Kind         (Type)
 import Data.Nat
 import Data.Bool
 import Data.Char         (Char)
@@ -31,7 +32,7 @@ import qualified Data.TypeClass as T
 infixr 5 :-
 
 -- | The 'Vec' datatype
-data Vec ∷ ★ → ℕ → ★ where
+data Vec ∷ Type → ℕ → Type where
   Nil  ∷ Vec a Z                   -- ^ empty 'Vec', length 0
   (:-) ∷ a → Vec a n → Vec a (S n) -- ^ "cons" operator