1 2 3 4 5 6 7 8 9 10 11 12 13 14
-- #2339 module Foo where import System.IO import Language.Haskell.TH type C = Int $(do a <- reify $ mkName "C" runIO $ hPutStrLn stderr (show a) return [] )