blob: d43e60c7a7bf1c442ce0e05e171c0650e5838267 (
plain)
1
2
3
4
5
6
7
8
9
|
{-# LANGUAGE TypeFamilies, PolyKinds, MultiParamTypeClasses #-}
module T7278 where
type family TF (t :: k) :: * -> * -> *
class C (t :: k) (dcs :: * -> * -> *)
f :: (C (t :: k) (TF t)) => TF t p1 p0 -> t p1 p0
f = undefined -- panic caused by (t :: k) in the signature's context
|