Recent TH tests fail in the 6.10 branch

testsuite/tests/ghc-regress/th/all.T

@@ -90,7 +90,8 @@ test('TH_bracket3', normal, compile, [''])
 test('TH_class1', normal, compile, ['-v0'])
 test('TH_tuple1', normal, compile, ['-v0'])
 test('TH_genEx',
-     extra_clean(['TH_genExLib.hi', 'TH_genExLib.o']),
+     [extra_clean(['TH_genExLib.hi', 'TH_genExLib.o']),
+      if_compiler_lt('ghc', '6.11', expect_fail)],
      multimod_compile,
      ['TH_genEx', '-v0'])
 
@@ -133,6 +134,6 @@ test('T2685', extra_clean(['T2685a.hi','T2685a.o']),
 
 test('TH_sections', normal, compile, ['-v0'])
 
-test('TH_tf1', normal, compile, ['-v0'])
-test('TH_tf2', normal, compile, ['-v0'])
-test('TH_tf3', normal, compile, ['-v0'])
+test('TH_tf1', if_compiler_lt('ghc', '6.11', expect_fail), compile, ['-v0'])
+test('TH_tf2', if_compiler_lt('ghc', '6.11', expect_fail), compile, ['-v0'])
+test('TH_tf3', if_compiler_lt('ghc', '6.11', expect_fail), compile, ['-v0'])