1 2 3 4 5 6 7
{-# LANGUAGE DataKinds, PolyKinds #-} module Bug where import T13915a_Foo data Proxy (a :: k) data S = MkS (Proxy 'MkT)