1 2 3 4 5 6 7
{-# LANGUAGE TypeFamilies #-} module ShouldFail where -- must fail: Repeated type variable class C4 a where data S4 a a :: *