Test Trac #2700

testsuite/tests/ghc-regress/th/T2700.hs

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

testsuite/tests/ghc-regress/th/T2700.stderr

+foo :: (GHC.Types.Int -> GHC.Bool.Bool) -> GHC.Bool.Bool

testsuite/tests/ghc-regress/th/all.T

@@ -115,6 +115,7 @@ test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script'])
 
 test('TH_scope', normal, compile, [''])
 test('T2632', normal, compile, [''])
+test('T2700', normal, compile, ['-v0'])
 
 test('T2386', extra_clean(['T2386_Lib.hi', 'T2386_Lib.o']),
 	      run_command,