Commit d07dcb88 authored by Ian Lynagh's avatar Ian Lynagh

Add a test (TH_reifyDecl2) for trac #1199

parent f193f3a8
module TH_reifyDecl2 where
import Language.Haskell.TH
import System.IO
$(
do x <- reify ''Maybe
runIO $ hPutStrLn stderr $ pprint x
return []
)
data Data.Maybe.Maybe a_0 = Data.Maybe.Nothing
| Data.Maybe.Just a_0
......@@ -35,6 +35,7 @@ test('TH_spliceD2', normal, multimod_compile, ['TH_spliceD2', '-v0'])
clean(['TH_spliceD2_Lib.hi', 'TH_spliceD2_Lib.o'])
test('TH_reifyDecl1', normal, compile, [''])
test('TH_reifyDecl2', normal, compile, ['-v0'])
test('TH_reifyType1', normal, compile, [''])
test('TH_reifyType2', 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