TH_tuple1.hs 320 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
{-# OPTIONS -fth #-}

-- Test the use of tupleDataName, tupleTypeName

module ShouldCompile where

import Language.Haskell.TH

foo = $( sigE (appsE [varE (tupleDataName 2),
		     litE (integerL 1),
		     litE (integerL 2)])
	      (appT (appT (varT (tupleTypeName 2))
			  (varT ''Integer))
		    (varT ''Integer))
	)