diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-03-03 11:00:59 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-03-06 13:29:27 +0000 |
| commit | 9b2c73ea8082199245bfa6a28390b70b38f87fd1 (patch) | |
| tree | d4b641ecec75eab226110dbb2e8492fa77f0f118 | |
| parent | 9304df5230a7a29d3e992916d133e462b854e55f (diff) | |
| download | haskell-9b2c73ea8082199245bfa6a28390b70b38f87fd1.tar.gz | |
Make TH_Roles2 less fragile
We need -dsuppress-uniques else this test keeps failing spuriously
| -rw-r--r-- | testsuite/tests/th/TH_Roles2.stderr | 8 | ||||
| -rw-r--r-- | testsuite/tests/th/all.T | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/th/TH_Roles2.stderr b/testsuite/tests/th/TH_Roles2.stderr index 65b8c1d442..8d52da408c 100644 --- a/testsuite/tests/th/TH_Roles2.stderr +++ b/testsuite/tests/th/TH_Roles2.stderr @@ -16,10 +16,10 @@ TH_Roles2.$tcT TH_Roles2.$trModule (GHC.Types.TrNameS "T"#) 1 - $krep_a3TO -$krep_a3TP [InlPrag=[~]] = GHC.Types.KindRepVar 0 -$krep_a3TO [InlPrag=[~]] - = GHC.Types.KindRepFun $krep_a3TP GHC.Types.krep$* + $krep +$krep [InlPrag=[~]] = GHC.Types.KindRepVar 0 +$krep [InlPrag=[~]] + = GHC.Types.KindRepFun $krep GHC.Types.krep$* TH_Roles2.$trModule = GHC.Types.Module (GHC.Types.TrNameS "main"#) (GHC.Types.TrNameS "TH_Roles2"#) diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 47da8df34d..d73ad8600c 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -252,7 +252,7 @@ test('TH_Roles2', normalise_version('array', 'base', 'deepseq', 'ghc-prim', 'ghc-boot', 'ghc-boot-th', 'integer-gmp', 'pretty', 'template-haskell', 'binary', 'bytestring', 'containers' - ), compile, ['-v0 -ddump-tc']) + ), compile, ['-v0 -ddump-tc -dsuppress-uniques']) test('TH_Roles3', normal, compile, ['-v0 -dsuppress-uniques']) test('TH_Roles4', normal, compile, ['-v0']) |