1 2 3 4 5 6 7 8
{-# LANGUAGE PolyKinds, TypeFamilies #-} module T7073 where class Foo a where type Bar a type Bar a = Int