Test Trac #5935

a9c1acef · Simon Peyton Jones · 4feb0ead · a9c1acef · a9c1acef
Commit a9c1acef authored Mar 16, 2012 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 15 additions and 0 deletions

testsuite/tests/polykinds/T5935.hs testsuite/tests/polykinds/T5935.hs +13 -0

testsuite/tests/polykinds/all.T testsuite/tests/polykinds/all.T +2 -0

No files found.
--- a/testsuite/tests/polykinds/T5935.hs
+++ b/testsuite/tests/polykinds/T5935.hs
+{-# LANGUAGE PolyKinds,
+             GADTs,
+             DataKinds,
+             KindSignatures
+ #-}
+
+module T5935 where
+
+data SList a where
+  SNil :: SList '[]
+
+x :: SList ('[] :: [Bool])
+x = SNil
--- a/testsuite/tests/polykinds/all.T
+++ b/testsuite/tests/polykinds/all.T
@@ -30,4 +30,6 @@ test('T5912', normal, compile, [''])
 test('T5881', normal, run_command, ['$MAKE -s --no-print-directory T5881'])
 test('T5716', normal, compile_fail, [''])
 test('T5937', normal, compile, [''])
+test('T5935', normal, compile, [''])
+