Re-jig test for Trac 2188

testsuite/tests/ghc-regress/th/TH_scope.hs

+-- Test for Trac #2188
 
 module TH_scope where
 
-import TH_scope_helper
-
-x :: ()
-x = ()
-    where hold = $( wibble [d| hold :: ()
-                               hold = () |] )
+f g = [d| f :: Int
+          f = g
+          g :: Int
+          g = 4 |]

testsuite/tests/ghc-regress/th/TH_scope_helper.hs

-
-module TH_scope_helper where
-
-import Language.Haskell.TH
-
-wibble :: Q [Dec] -> Q Exp
-wibble _ = [| 'a' |]

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

@@ -83,5 +83,5 @@ test('TH_runIO', if_compiler_lt('ghc','6.9', namebase('TH_runIO-6.8')), compile_
 
 test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script'])
 
-test('TH_scope', expect_broken(2188), multimod_compile, ['TH_scope', '-v0'])
+test('TH_scope', normal, compile, [''])