Ticket #2700: TestPPrint.hs

{-# LANGUAGE TemplateHaskell #-}

module Main where

import System
import Language.Haskell.TH

$(do
        guy <- sigD (mkName "foo") [t|(Int -> Bool) -> Bool|]

        runIO $ print $ pprint guy

        return [])

main :: IO ()
main = return ()