Commit 4ad42be7 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5625

parent aab952d4
{-# LANGUAGE TemplateHaskell #-}
module T5665 where
import T5665a
data Record = Record { recordField :: Int }
$(doSomeTH "SomeType" ''Int)
module T5665a where
import Language.Haskell.TH
doSomeTH s tp = return [NewtypeD [] n [] (NormalC n [(NotStrict, ConT tp)]) []]
where n = mkName s
......@@ -215,3 +215,5 @@ test('TH_Depends',
['$MAKE -s --no-print-directory TH_Depends'])
test('T5597', extra_clean(['T5597a.hi','T5597a.o']),
multimod_compile, ['T5597','-v0'])
test('T5665', extra_clean(['T5665a.hi','T5665a.o']),
multimod_compile, ['T5665','-v0'])
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