Fix T6018th test failure

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
       }
  )

testsuite/tests/th/T6018th.stderr

-| 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