1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE TypeInType #-} module DepFail1 where data Proxy k (a :: k) = P z :: Proxy Bool z = P a :: Proxy Int Bool a = P