summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/T9199.hs
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2014-06-12 16:36:59 +0100
committerSimon Peyton Jones <simonpj@microsoft.com>2014-06-12 16:36:59 +0100
commit571f0adccda687098d59f63524357f4ac98e72fb (patch)
tree94b1562d979e07c132c1de794d66152f4ece7624 /testsuite/tests/th/T9199.hs
parentb60df0fa017eac8800a3848650dbad09acb6f1b8 (diff)
downloadhaskell-571f0adccda687098d59f63524357f4ac98e72fb.tar.gz
Line up kind and type variables correctly when desugaring TH brackets
This bug was causing Trac #9199
Diffstat (limited to 'testsuite/tests/th/T9199.hs')
-rw-r--r--testsuite/tests/th/T9199.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/th/T9199.hs b/testsuite/tests/th/T9199.hs
new file mode 100644
index 0000000000..aa41198b57
--- /dev/null
+++ b/testsuite/tests/th/T9199.hs
@@ -0,0 +1,9 @@
+{-# LANGUAGE TemplateHaskell, PolyKinds, TypeFamilies #-}
+
+module T9160 where
+
+$( [d| class C (a :: k) where
+ type F (a :: k) :: *
+ |]
+ )
+