diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-13 22:06:38 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-13 22:06:38 +0100 |
| commit | 6cc2d276059f7e6662aad12e60e56cb61e46b30d (patch) | |
| tree | 8175b68eaccb0365ba45ed408741336d84717e2a /testsuite/tests/polykinds/T5938.hs | |
| parent | a312fd1bf550eb83d924be6af69c68245c399cd0 (diff) | |
| download | haskell-6cc2d276059f7e6662aad12e60e56cb61e46b30d.tar.gz | |
Test Trac #5938
Diffstat (limited to 'testsuite/tests/polykinds/T5938.hs')
| -rw-r--r-- | testsuite/tests/polykinds/T5938.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/polykinds/T5938.hs b/testsuite/tests/polykinds/T5938.hs new file mode 100644 index 0000000000..bde1e7453e --- /dev/null +++ b/testsuite/tests/polykinds/T5938.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE PolyKinds, TypeFamilies, DataKinds #-}
+module T5938 where
+
+type family KindFam a
+type instance KindFam (a :: *) = Int
+type instance KindFam (a :: Bool) = Bool
+type instance KindFam (a :: Maybe k) = Char -- doesn't work
|