testsuite/tests/th/T10819_Lib.hs


1
2
3
4
5
6
7

module T10819_Lib where

import Language.Haskell.TH.Syntax

doSomeTH s tp drv = return [NewtypeD [] n [] Nothing (NormalC n
    [(Bang NoSourceUnpackedness NoSourceStrictness, ConT tp)]) drv]
  where n = mkName s