TH_scopedTvs succeeds now we have scoped type variables in TH

testsuite/tests/th/T3177a.stderr

 
 T3177a.hs:8:15:
     `Int' is applied to too many type arguments
+    In the type `Int Int'
     In the Template Haskell quotation [t| Int Int |]
     In the first argument of `id', namely `[t| Int Int |]'
-    In the expression: id [t| Int Int |]
 
 T3177a.hs:11:6:
     `Int' is applied to too many type arguments

testsuite/tests/th/TH_scopedTvs.stderr

-
-TH_scopedTvs.hs:6:13:
-    Illegal lexically-scoped type variable `a'
-    Lexically scoped type variables are not supported by Template Haskell

testsuite/tests/th/all.T

@@ -125,7 +125,7 @@ test('TH_dataD1', normal, compile_fail, ['-v0'])
 test('TH_ppr1', normal, compile_and_run, [''])
 
 test('TH_fail', normal, compile_fail, ['-v0'])
-test('TH_scopedTvs', normal, compile_fail, ['-v0'])
+test('TH_scopedTvs', normal, compile, ['-v0'])
 
 test('TH_runIO', normal, compile_fail, ['-v0'])