Commit a7d78464 authored by Ian Lynagh's avatar Ian Lynagh

Add test TH_dataD1 for trac #1065

parent 0cc40030
module TH_dataD1 where
import Language.Haskell.TH
ds :: Q [Dec]
ds = [d|
$(dataD [] (mkName "D") [] [normalC "K" []] [])
|]
......@@ -70,3 +70,5 @@ test('TH_dupdecl', normal, compile_fail, [''])
test('TH_exn', normal, compile_fail, [''])
test('TH_recover', normal, compile_and_run, [''])
test('TH_dataD1', normal, compile, ['-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