Add a test case for #15829
authorRyan Scott <ryan.gl.scott@gmail.com>
Mon, 29 Oct 2018 16:59:46 +0000 (12:59 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Mon, 29 Oct 2018 16:59:56 +0000 (12:59 -0400)
This happened to get fixed as a consequence of commit
5e45ad10ffca1ad175b10f6ef3327e1ed8ba25f3. This adds a test case
to ensure that it stays fixed.

testsuite/tests/dependent/should_compile/T15829.hs [new file with mode: 0644]
testsuite/tests/dependent/should_compile/all.T

diff --git a/testsuite/tests/dependent/should_compile/T15829.hs b/testsuite/tests/dependent/should_compile/T15829.hs
new file mode 100644 (file)
index 0000000..ec6f5d1
--- /dev/null
@@ -0,0 +1,9 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE PolyKinds #-}
+module T15829 where
+
+import Data.Kind
+
+data A :: Type -> Type
+data B a :: A a -> Type
+type C a = B a
index 341a44c..632ef40 100644 (file)
@@ -64,3 +64,4 @@ test('T15743e', normal, compile, ['-ddump-types -fprint-explicit-foralls'])
 test('T15076', normal, compile, [''])
 test('T15076b', normal, compile, [''])
 test('T15076c', normal, compile, [''])
+test('T15829', normal, compile, [''])