1 2 3 4 5 6 7 8 9 10
{-# language TypeFamilies #-} module MultiAssocDefaults where import Data.Kind (Type) class C a where type A a :: Type type A a = Int type A a = Double