1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE TemplateHaskell, PolyKinds, TypeFamilies #-} module T9160 where import Data.Kind (Type) $( [d| class C (a :: k) where type F (a :: k) :: Type |] )