[commit: ghc] master: Test Trac #9867 (4cfd235)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4cfd235d4d52ce6e6c48013b2d5dcb347b978c24/ghc

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

commit 4cfd235d4d52ce6e6c48013b2d5dcb347b978c24
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jan 19 11:59:28 2015 +0000

    Test Trac #9867


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

4cfd235d4d52ce6e6c48013b2d5dcb347b978c24
 testsuite/tests/patsyn/should_compile/T9867.hs | 5 +++++
 testsuite/tests/patsyn/should_compile/all.T    | 1 +
 2 files changed, 6 insertions(+)

diff --git a/testsuite/tests/patsyn/should_compile/T9867.hs b/testsuite/tests/patsyn/should_compile/T9867.hs
new file mode 100644
index 0000000..f05c43c
--- /dev/null
+++ b/testsuite/tests/patsyn/should_compile/T9867.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables #-}
+
+module T9867 where
+
+pattern Nil = [] :: [a]
diff --git a/testsuite/tests/patsyn/should_compile/all.T b/testsuite/tests/patsyn/should_compile/all.T
index 086875f..0ef30f0 100644
--- a/testsuite/tests/patsyn/should_compile/all.T
+++ b/testsuite/tests/patsyn/should_compile/all.T
@@ -21,3 +21,4 @@ test('T8968-3', expect_broken(9953), compile, [''])
 test('ImpExp_Imp', [extra_clean(['ImpExp_Exp.hi', 'ImpExp_Exp.o'])], multimod_compile, ['ImpExp_Imp', '-v0'])
 test('T9857', normal, compile, [''])
 test('T9889', normal, compile, [''])
+test('T9867', normal, compile, [''])