Commit 99e06971 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Re-jig test for Trac 2188

parent 9ed556b8
-- 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 |]
module TH_scope_helper where
import Language.Haskell.TH
wibble :: Q [Dec] -> Q Exp
wibble _ = [| 'a' |]
......@@ -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, [''])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment