[commit: ghc] master: Add test for #10379 (1dbc8d9)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1dbc8d91b7726a37c693fa769d19782871142b07/ghc

>---------------------------------------------------------------

commit 1dbc8d91b7726a37c693fa769d19782871142b07
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Sun Jan 3 19:57:42 2016 +0100

    Add test for #10379


>---------------------------------------------------------------

1dbc8d91b7726a37c693fa769d19782871142b07
 testsuite/tests/parser/should_compile/T10379.hs | 9 +++++++++
 testsuite/tests/parser/should_compile/all.T     | 1 +
 2 files changed, 10 insertions(+)

diff --git a/testsuite/tests/parser/should_compile/T10379.hs b/testsuite/tests/parser/should_compile/T10379.hs
new file mode 100644
index 0000000..1eb5f96
--- /dev/null
+++ b/testsuite/tests/parser/should_compile/T10379.hs
@@ -0,0 +1,9 @@
+{-# LANGUAGE KindSignatures, GADTs, DataKinds, TypeOperators #-}
+module Foo where
+
+data Foo1 :: [*] -> * where
+
+-- ghc <= 7.10 reported (before "Add kind equalities to GHC"):
+--
+--     T10379.hs:9:16: parse error on input ‘]’
+data Foo2 :: ([] *) -> * where
diff --git a/testsuite/tests/parser/should_compile/all.T b/testsuite/tests/parser/should_compile/all.T
index 9446bf1..6865e70 100644
--- a/testsuite/tests/parser/should_compile/all.T
+++ b/testsuite/tests/parser/should_compile/all.T
@@ -103,4 +103,5 @@ test('T9723b', normal, compile, [''])
 test('T10188', normal, compile, [''])
 test('VtaParse', normal, compile, [''])
 test('T10196', normal, compile, [''])
+test('T10379', normal, compile, [''])
 test('T10582', expect_broken(10582), compile, [''])