summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/T2817.hs
blob: 6bdee60994e63718c47627bdbeae70b995210fc5 (plain)
1
2
3
4
5
6
7
8
9
10
11
{-# 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)))))