testsuite/tests/th/T2700.hs


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 [] }
  )