Commit 9b2c73ea authored by Simon Peyton Jones's avatar Simon Peyton Jones

Make TH_Roles2 less fragile

We need -dsuppress-uniques else this test keeps failing spuriously
parent 9304df52
......@@ -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"#)
......
......@@ -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'])
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment