Add a test (TH_reifyDecl2) for trac #1199

testsuite/tests/ghc-regress/th/TH_reifyDecl2.hs

+
+module TH_reifyDecl2 where
+
+import Language.Haskell.TH
+import System.IO
+
+$(
+    do x <- reify ''Maybe
+       runIO $ hPutStrLn stderr $ pprint x
+       return []
+ )
+

testsuite/tests/ghc-regress/th/TH_reifyDecl2.stderr

+data Data.Maybe.Maybe a_0 = Data.Maybe.Nothing
+                          | Data.Maybe.Just a_0

testsuite/tests/ghc-regress/th/all.T

@@ -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, [''])