testsuite/tests/th/T5290.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE TemplateHaskell #-}

module T5290 where

import Language.Haskell.TH

$( let n = mkName "T"
   in return [DataD [] n [] Nothing
                [NormalC n [(Bang SourceUnpack SourceStrict,ConT ''Int)]] []] )