Fix #11287.
[ghc.git] / testsuite / tests / th / TH_tuple1.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 -- Test the use of tupleDataName, tupleTypeName
4
5 module ShouldCompile where
6
7 import Language.Haskell.TH
8
9 foo = $( sigE (appsE [conE (tupleDataName 2),
10 litE (integerL 1),
11 litE (integerL 2)])
12 (appT (appT (conT (tupleTypeName 2))
13 (conT ''Integer))
14 (conT ''Integer))
15 )