Commit eb769e4f authored by simonpj's avatar simonpj

[project @ 2005-01-31 15:44:52 by simonpj]

Add a TH test for tuple names
parent ec3a92d8
{-# 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))
)
Loading package base-1.0 ... linking ... done.
Loading package haskell98-1.0 ... linking ... done.
Loading package template-haskell-1.0 ... linking ... done.
......@@ -34,6 +34,7 @@ test('TH_bracket2', normal, compile, [''])
test('TH_bracket3', normal, compile, [''])
test('TH_class1', normal, compile, [''])
test('TH_tuple1', normal, compile, [''])
test('TH_genEx', normal, multimod_compile, ['TH_genEx', '-ddump-splices'])
test('TH_where', normal, compile_and_run, [''])
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