diff options
author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-02-09 13:29:02 -0500 |
---|---|---|
committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-02-09 20:38:14 -0500 |
commit | 8e303d725eba0d6e0f9e52c64da21a0f299fa422 (patch) | |
tree | fcc4f2851863a65f5a796e2777927e43cb611bda /testsuite | |
parent | 182ff9e814a917681b1600b2729c3340801630de (diff) | |
download | haskell-8e303d725eba0d6e0f9e52c64da21a0f299fa422.tar.gz |
Refactor previous commit on fixing #7021.
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/tests/th/T8625.stdout | 4 | ||||
-rw-r--r-- | testsuite/tests/th/all.T | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/testsuite/tests/th/T8625.stdout b/testsuite/tests/th/T8625.stdout index e6ce48be3a..4453d692ba 100644 --- a/testsuite/tests/th/T8625.stdout +++ b/testsuite/tests/th/T8625.stdout @@ -1,2 +1,2 @@ -[InstanceD [EqualP (VarT y_0) (AppT (AppT ArrowT (VarT t_1)) (VarT t_1))] (AppT (ConT Ghci1.Member) (ConT GHC.Types.Bool)) []] -[SigD f_2 (ForallT [PlainTV y_3,PlainTV t_4] [EqualP (VarT y_3) (AppT (AppT ArrowT (VarT t_4)) (VarT t_4))] (AppT (AppT ArrowT (VarT y_3)) (VarT t_4))),FunD f_2 [Clause [VarP x_5] (NormalB (VarE x_5)) []]] +[InstanceD [AppT (AppT EqualityT (VarT y_0)) (AppT (AppT ArrowT (VarT t_1)) (VarT t_1))] (AppT (ConT Ghci1.Member) (ConT GHC.Types.Bool)) []] +[SigD f_2 (ForallT [PlainTV y_3,PlainTV t_4] [AppT (AppT EqualityT (VarT y_3)) (AppT (AppT ArrowT (VarT t_4)) (VarT t_4))] (AppT (AppT ArrowT (VarT y_3)) (VarT t_4))),FunD f_2 [Clause [VarP x_5] (NormalB (VarE x_5)) []]] diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 3e88970f51..e57b394979 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -318,4 +318,6 @@ test('T8577', test('T8633', normal, compile_and_run, ['']) test('T8625', normal, ghci_script, ['T8625.script']) test('T8759', normal, compile_fail, ['-v0']) -test('T8759a', normal, compile_fail, ['-v0'])
\ No newline at end of file +test('T8759a', normal, compile_fail, ['-v0']) +test('T7021', + extra_clean(['T7021a.hi', 'T7021a.o']), multimod_compile, ['T7021','-v0'])
\ No newline at end of file |