Commit 709f9d6b authored by simonpj's avatar simonpj

Test Trac #2817

parent 404c7272
{-# OPTIONS -XTemplateHaskell #-}
module TH( x ) where
import Language.Haskell.TH
data T f = MkT (f Int)
x = $(return (SigE (VarE 'x) (AppT (ConT ''T) (AppT ArrowT (ConT ''Int)))))
......@@ -118,6 +118,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('T2817', normal, compile, ['-v0'])
test('T2713', normal, compile_fail, ['-v0'])
test('T2674', normal, compile_fail, ['-v0'])
test('TH_emptycase', normal, compile_fail, ['-v0'])
......
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