Test Trac #8856
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 7 Mar 2014 17:15:15 +0000 (17:15 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 7 Mar 2014 17:15:15 +0000 (17:15 +0000)
testsuite/tests/typecheck/should_compile/T8856.hs [new file with mode: 0644]
testsuite/tests/typecheck/should_compile/all.T

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