blob: 800759d6904473116a8850f6231b9a8228cae2c5 (
plain)
1
2
3
4
5
6
7
8
9
|
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE KindSignatures #-}
module T12174 where
data V a
data T = forall (a :: S). MkT (V a)
data S = forall (a :: T). MkS (V a)
|