blob: 5acd455a073843aad16db93ec7e552dd8d5418b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{-# LANGUAGE TemplateHaskell #-}
module T16980 where
import Language.Haskell.TH
import Language.Haskell.TH.Ppr
import System.IO
aNumber = 5
do VarI name1 t1 _ <- reify 'aNumber
runIO . print $ ppr_sig name1 t1
runIO . print =<< reifyType 'aNumber
runIO $ hFlush stdout
return []
|