testsuite/tests/polykinds/T19739a.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE StandaloneKindSignatures #-}
module Bug where

import Data.Kind
import Data.Proxy

type T :: forall (a :: Type) -> Constraint
class T a where
  f :: Proxy a