[commit: ghc] ghc-7.8: Test Trac #8856 (b95b3fb)

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/b95b3fbd402d53525948df03c82b774adfe7f13f/ghc

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

commit b95b3fbd402d53525948df03c82b774adfe7f13f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Mar 7 17:15:15 2014 +0000

    Test Trac #8856
    
    (cherry picked from commit 062391be4f06aa408187582c4a40f1cea80429c3)


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

b95b3fbd402d53525948df03c82b774adfe7f13f
 testsuite/tests/typecheck/should_compile/T8856.hs |    6 ++++++
 testsuite/tests/typecheck/should_compile/all.T    |    1 +
 2 files changed, 7 insertions(+)

diff --git a/testsuite/tests/typecheck/should_compile/T8856.hs b/testsuite/tests/typecheck/should_compile/T8856.hs
new file mode 100644
index 0000000..6605e47
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T8856.hs
@@ -0,0 +1,6 @@
+{-# LANGUAGE ScopedTypeVariables, RankNTypes, PolyKinds #-}
+module T8856 where
+
+import Data.Proxy
+
+foo = (undefined :: Proxy a) :: forall a. Proxy a
diff --git a/testsuite/tests/typecheck/should_compile/all.T b/testsuite/tests/typecheck/should_compile/all.T
index 35b5dd2..373e739 100644
--- a/testsuite/tests/typecheck/should_compile/all.T
+++ b/testsuite/tests/typecheck/should_compile/all.T
@@ -417,3 +417,4 @@ test('T8565', normal, compile, [''])
 test('T8644', normal, compile, [''])
 test('T8762', normal, compile, [''])
 test('MutRec', normal, compile, [''])
+test('T8856', normal, compile, [''])