summaryrefslogtreecommitdiff
path: root/testsuite/tests/polykinds/T6129.hs
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2012-06-07 14:07:56 +0100
committerSimon Peyton Jones <simonpj@microsoft.com>2012-06-07 14:07:56 +0100
commit8491727987b69c0f916060a85af9b0c967ecb71e (patch)
treeea71c42d2d1fab2f7dff1ece2cf4abb37928d394 /testsuite/tests/polykinds/T6129.hs
parente8ec57988ce2191ed53fdbb3ba425f4a39ef76f0 (diff)
downloadhaskell-8491727987b69c0f916060a85af9b0c967ecb71e.tar.gz
Test Trac #6049, #6093, #6129, #6137
Diffstat (limited to 'testsuite/tests/polykinds/T6129.hs')
-rw-r--r--testsuite/tests/polykinds/T6129.hs12
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/polykinds/T6129.hs b/testsuite/tests/polykinds/T6129.hs
new file mode 100644
index 0000000000..2f163de192
--- /dev/null
+++ b/testsuite/tests/polykinds/T6129.hs
@@ -0,0 +1,12 @@
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE PolyKinds #-}
+{-# LANGUAGE DataKinds #-}
+
+module T6129 where
+
+data family D a
+data instance D a = DInt
+
+data X a where
+ X1 :: X DInt