Fix #11287.
[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 [] Nothing (NormalC n
6 [(Bang NoSourceUnpackedness NoSourceStrictness, ConT tp)]) drv]
7 where n = mkName s