1 2 3 4 5 6 7
{-# LANGUAGE TypeFamilies #-} module AssocTyDef03 where class Cls a where data Typ a type Typ a = Int -- Default for data family :-(