1 2 3 4 5 6 7 8
{-# LANGUAGE TypeFamilies, ConstraintKinds #-} module ShouldFail where import GHC.Exts( Constraint ) type family F a :: Constraint class (F a) => C a where