Commit 33c70ee8 authored by Ian Lynagh's avatar Ian Lynagh

Add a test TH_scope for trac#2188

parent 27e2c4bb
module TH_scope where
import TH_scope_helper
x :: ()
x = ()
where hold = $( wibble [d| hold :: ()
hold = () |] )
module TH_scope_helper where
import Language.Haskell.TH
wibble :: Q [Dec] -> Q Exp
wibble _ = [| 'a' |]
......@@ -82,3 +82,6 @@ test('TH_scopedTvs', normal, compile_fail, ['-v0'])
test('TH_runIO', if_compiler_lt('ghc','6.9', namebase('TH_runIO-6.8')), compile_fail, ['-v0'])
test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script'])
test('TH_scope', expect_broken(2188), multimod_compile, ['TH_scope', '-v0'])
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