[commit: ghc] master: Make TH_Roles2 less fragile (9b2c73e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9b2c73ea8082199245bfa6a28390b70b38f87fd1/ghc

>---------------------------------------------------------------

commit 9b2c73ea8082199245bfa6a28390b70b38f87fd1
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Mar 3 11:00:59 2017 +0000

    Make TH_Roles2 less fragile
    
    We need -dsuppress-uniques else this test keeps failing spuriously


>---------------------------------------------------------------

9b2c73ea8082199245bfa6a28390b70b38f87fd1
 testsuite/tests/th/TH_Roles2.stderr | 8 ++++----
 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 65b8c1d..8d52da4 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 47da8df..d73ad86 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'])