[commit: ghc] master: Fix T6018th test failure (19c6049)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/19c6049a3d718a3200feab644d6bbbc6b5f2e74b/ghc

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

commit 19c6049a3d718a3200feab644d6bbbc6b5f2e74b
Author: Jan Stolarek <jan.stolarek at p.lodz.pl>
Date:   Fri Sep 4 05:15:06 2015 +0200

    Fix T6018th test failure


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

19c6049a3d718a3200feab644d6bbbc6b5f2e74b
 testsuite/tests/th/T6018th.hs     | 1 -
 testsuite/tests/th/T6018th.stderr | 3 +--
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/testsuite/tests/th/T6018th.hs b/testsuite/tests/th/T6018th.hs
index 3205363..91438c8 100644
--- a/testsuite/tests/th/T6018th.hs
+++ b/testsuite/tests/th/T6018th.hs
@@ -84,7 +84,6 @@ $( do { decl@([ClosedTypeFamilyD _ _ _ (Just inj) _]) <-
                         Bak Int  = Char
                         Bak Char = Int
                         Bak a    = a |]
-      ; runIO $ putStrLn (pprint inj)
       ; return decl
       }
  )
diff --git a/testsuite/tests/th/T6018th.stderr b/testsuite/tests/th/T6018th.stderr
index 98c318b..4579ea5 100644
--- a/testsuite/tests/th/T6018th.stderr
+++ b/testsuite/tests/th/T6018th.stderr
@@ -1,6 +1,5 @@
-| r_0 -> a_1
 
-T6018th.hs:98:4:
+T6018th.hs:97:4:
     Type family equations violate injectivity annotation:
       H Int Int Int = Bool
       H Int Char Bool = Bool