Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : overlapping-tyfams
http://hackage.haskell.org/trac/ghc/changeset/4dd52e0ebbac6894d6675631e245544ea7c861cd >--------------------------------------------------------------- commit 4dd52e0ebbac6894d6675631e245544ea7c861cd Author: Richard Eisenberg <e...@cis.upenn.edu> Date: Tue Dec 4 13:49:58 2012 -0500 Updated test to pass with new TySynInstD in Template Haskell. >--------------------------------------------------------------- tests/th/T5886a.hs | 2 +- tests/th/all.T | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletions(-) diff --git a/tests/th/T5886a.hs b/tests/th/T5886a.hs index 4c6f433..74db6fa 100644 --- a/tests/th/T5886a.hs +++ b/tests/th/T5886a.hs @@ -11,4 +11,4 @@ class C α where bang ⷠDecsQ bang = return [InstanceD [] (AppT (ConT ''C) (ConT ''Int)) - [TySynInstD ''AT [ConT ''Int] (ConT ''Int)]] + [TySynInstD ''AT [TySynEqn [ConT ''Int] (ConT ''Int)]]] diff --git a/tests/th/all.T b/tests/th/all.T index d74bbea..5936852 100644 --- a/tests/th/all.T +++ b/tests/th/all.T @@ -254,3 +254,9 @@ test('T7092', extra_clean(['T7092a.hi','T7092a.o']), multimod_compile, ['T7092','-v0']) test('T7276', normal, compile_fail, ['-v0']) test('T7276a', combined_output, ghci_script, ['T7276a.script']) + +test('TH_TyInstWhere1', normal, compile, ['-v0 -ddump-splices -dsuppress-uniques']) +test('TH_TyInstWhere2', normal, compile, ['-v0']) +test('TH_TyInstWhere3', normal, compile, ['-v0']) +test('TH_TyInstWhere4', normal, compile, ['-v0']) +
_______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc