Commit c3c42c3e authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #2700

parent ddb2a3d6
{-# 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 [] }
)
foo :: (GHC.Types.Int -> GHC.Bool.Bool) -> GHC.Bool.Bool
......@@ -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,
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment