blob: 2b558271b39b14f8d80f1d266eabdae2c4064564 (
plain)
1
2
3
4
5
6
7
|
module T5665a where
import Language.Haskell.TH
doSomeTH s tp = return [NewtypeD [] n [] Nothing (NormalC n
[(Bang NoSourceUnpackedness NoSourceStrictness, ConT tp)]) []]
where n = mkName s
|