к
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 = AlsoANat
K
{-# 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 = AlsoANat
data family AlsoANat :: natТак, стоп.
data families
же прибиты к Type
, разве нет? Единственное не-прибитое семейство это Any
.R
[