Commit 23a41b78 authored by simonpj's avatar simonpj
Browse files

[project @ 2005-12-05 09:08:51 by simonpj]

Fix test
parent 17dad041
......@@ -6,10 +6,10 @@ module ShouldCompile where
import Language.Haskell.TH
foo = $( sigE (appsE [varE (tupleDataName 2),
foo = $( sigE (appsE [conE (tupleDataName 2),
litE (integerL 1),
litE (integerL 2)])
(appT (appT (varT (tupleTypeName 2))
(varT ''Integer))
(varT ''Integer))
(appT (appT (conT (tupleTypeName 2))
(conT ''Integer))
(conT ''Integer))
)
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