1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE TypeFamilies #-} module ShouldCompile where import Data.Kind (Type) class C8 a where data S8 a :: Type -> Type instance C8 Int where data S8 Int a = S8Int a