blob: 12dc3f056d5a08e1bbf84a19d7cc2f73a4df595b (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE TemplateHaskell #-}
module T2700 where
import Language.Haskell.TH
import System.IO
$( do { d <- sigD (mkName "foo") [t| (Int -> Bool) -> Bool |]
; runIO (hPutStrLn stderr (pprint d))
; return [] }
)
|