77e23f3d117421e6031d08376169c9b1f226bdb3
[ghc.git] / testsuite / tests / th / T13098.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module T13098 where
4
5 import Language.Haskell.TH
6
7 $( sequence [ dataD (cxt []) (mkName "T") [PlainTV (mkName "a")]
8 Nothing [normalC (mkName "T") []] []
9 , pragCompleteD [mkName "T"] Nothing ] )