Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c4beb0cfbe29923cde7a64b37b237de558b30b93 >--------------------------------------------------------------- commit c4beb0cfbe29923cde7a64b37b237de558b30b93 Author: Simon Peyton Jones <[email protected]> Date: Sat Jul 14 13:28:14 2012 +0100 test trac #7073 >--------------------------------------------------------------- tests/polykinds/T7073.hs | 8 ++++++++ tests/polykinds/all.T | 1 + 2 files changed, 9 insertions(+), 0 deletions(-) diff --git a/tests/polykinds/T7073.hs b/tests/polykinds/T7073.hs new file mode 100644 index 0000000..e406bca --- /dev/null +++ b/tests/polykinds/T7073.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE PolyKinds, TypeFamilies #-} + +module T7073 where + +class Foo a where + type Bar a + type Bar a = Int + diff --git a/tests/polykinds/all.T b/tests/polykinds/all.T index bec2cc1..3c8ae9a 100644 --- a/tests/polykinds/all.T +++ b/tests/polykinds/all.T @@ -54,3 +54,4 @@ test('T6137', normal, compile,['']) test('T6093', normal, compile,['']) test('T6049', normal, compile,['']) test('T6129', normal, compile_fail,['']) +test('T7073', normal, compile,['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
