к
Size: a a a
R
KV
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE PolyKinds #-}
data Nat = Z | S Nat
data family AlsoANat :: nat
type family IdNat (n :: Nat) :: Nat where
IdNat 'Z = 'Z
IdNat ('S n) = 'S n
IdNat AlsoANat = AlsoANatK
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE PolyKinds #-}
data Nat = Z | S Nat
data family AlsoANat :: nat
type family IdNat (n :: Nat) :: Nat where
IdNat 'Z = 'Z
IdNat ('S n) = 'S n
IdNat AlsoANat = AlsoANatdata family AlsoANat :: natТак, стоп.
data families же прибиты к Type, разве нет? Единственное не-прибитое семейство это Any.R
[