Implement deriving strategies
[ghc.git] / testsuite / tests / th / TH_dataD1.hs
1
2 module TH_dataD1 where
3
4 import Language.Haskell.TH
5
6 ds :: Q [Dec]
7 ds = [d|
8 $(do { d <- dataD (cxt []) (mkName "D") [] Nothing
9 [normalC (mkName "K") []] []
10 ; return [d]})
11 |]
12