aa52a181fd6a1da475d6bd67e349a8996a1794a1
[ghc.git] / testsuite / tests / th / T10819_Lib.hs
1 module T10819_Lib where
2
3 import Language.Haskell.TH.Syntax
4
5 doSomeTH s tp drv = return [NewtypeD [] n [] (NormalC n [(NotStrict, ConT tp)]) drv]
6 where n = mkName s