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, ['']) ...@@ -70,3 +70,5 @@ test('TH_dupdecl', normal, compile_fail, [''])
test('TH_exn', normal, compile_fail, ['']) test('TH_exn', normal, compile_fail, [''])
test('TH_recover', normal, compile_and_run, ['']) 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