Commit 18126326 authored by simonpj's avatar simonpj

[project @ 2003-10-30 10:16:26 by simonpj]

Two more TH tests, thanks to Sean
parent 1de5f700
-- Check that declarations in a bracket shadow the top-level
-- declarations, rather than clashing with them.
module TH_bracket1 where
foo = 1
bar = [d| foo = 1|]
-- Check that declarations in a bracket shadow the top-level
-- declarations, rather than clashing with them.
module TH_bracket1 where
foo = 1
bar = [d| foo = 1 |]
module TH_bracket2 where
d_show = [d| data A = A
instance Show A where
show _ = "A"
|]
module TH_bracket3 where
d_class = [d| class Classy a b where
f :: a -> b
instance Classy Int Bool where
f x = if x == 0 then True else False
|]
......@@ -26,3 +26,5 @@ test('TH_spliceDecl3', normal, multimod_compile, ['TH_spliceDecl3', '-v0'])
test('TH_spliceExpr1', normal, compile, ['-v0'])
test('TH_bracket1', normal, compile, [''])
test('TH_bracket2', normal, compile, [''])
test('TH_bracket3', 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