Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/94cdb5372ef52ec33c7a8c6419e3d15acc12192a >--------------------------------------------------------------- commit 94cdb5372ef52ec33c7a8c6419e3d15acc12192a Author: Simon Peyton Jones <[email protected]> Date: Mon Aug 13 17:39:52 2012 +0100 Update T7022 to test more as per the ticket >--------------------------------------------------------------- tests/polykinds/Makefile | 3 ++- tests/polykinds/T7022.hs | 6 +++--- tests/polykinds/{T7022.hs => T7022b.hs} | 2 +- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/tests/polykinds/Makefile b/tests/polykinds/Makefile index ad57eb0..d52dd9c 100644 --- a/tests/polykinds/Makefile +++ b/tests/polykinds/Makefile @@ -23,6 +23,7 @@ T6054: -'$(TEST_HC)' $(TEST_HC_OPTS) -c T6054.hs T7022: - $(RM) -f T7022.hi T7022.o T7022a.hi T7022a.o + $(RM) -f T7022.hi T7022.o T7022a.hi T7022a.o T7022b.hi T7022b.o '$(TEST_HC)' $(TEST_HC_OPTS) -c T7022a.hs + '$(TEST_HC)' $(TEST_HC_OPTS) -c T7022b.hs -v0 -'$(TEST_HC)' $(TEST_HC_OPTS) -c -v0 T7022.hs diff --git a/tests/polykinds/T7022.hs b/tests/polykinds/T7022.hs index a21453b..35a2db0 100644 --- a/tests/polykinds/T7022.hs +++ b/tests/polykinds/T7022.hs @@ -2,8 +2,8 @@ module T7022 where -import T7022a +import T7022b -data family Sing (a :: k) +foo :: SList a -> Bool +foo = undefined -$( makeSList ) diff --git a/tests/polykinds/T7022.hs b/tests/polykinds/T7022b.hs similarity index 86% copy from tests/polykinds/T7022.hs copy to tests/polykinds/T7022b.hs index a21453b..44cc2e5 100644 --- a/tests/polykinds/T7022.hs +++ b/tests/polykinds/T7022b.hs @@ -1,6 +1,6 @@ {-# LANGUAGE PolyKinds, TypeFamilies, DataKinds, TemplateHaskell #-} -module T7022 where +module T7022b where import T7022a _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
