Test Trac #7804

25fb90d7 · Simon Peyton Jones · 86825d5a · 25fb90d7 · 25fb90d7
Commit 25fb90d7 authored Apr 03, 2013 by Simon Peyton Jones
Showing with 11 additions and 0 deletions

testsuite/tests/indexed-types/should_compile/T7804.hs testsuite/tests/indexed-types/should_compile/T7804.hs +10 -0

testsuite/tests/indexed-types/should_compile/all.T testsuite/tests/indexed-types/should_compile/all.T +1 -0

No files found.
--- a/testsuite/tests/indexed-types/should_compile/T7804.hs
+++ b/testsuite/tests/indexed-types/should_compile/T7804.hs
+{-# LANGUAGE TypeFamilies, RankNTypes #-}
+
+module T7804 where
+
+type family F f a
+
+data Proxy a = P
+
+sDFMap :: (forall a. Proxy f -> Proxy a -> Proxy (F f a)) -> Int
+sDFMap _ = 3
--- a/testsuite/tests/indexed-types/should_compile/all.T
+++ b/testsuite/tests/indexed-types/should_compile/all.T
@@ -208,4 +208,5 @@ test('T7474', normal, compile, [''])
 test('T7489', normal, compile, [''])
 test('T7585', normal, compile, [''])
 test('T7282', normal, compile, [''])
+test('T7804', normal, compile, [''])