testsuite/tests/th/TH_dataD1.hs


1
2
3
4
5
6
7
8
9
10
11
12


module TH_dataD1 where

import Language.Haskell.TH

ds :: Q [Dec]
ds = [d|
          $(do { d <- dataD (cxt []) (mkName "D") [] Nothing
                             [normalC (mkName "K") []] []
               ; return [d]})
       |]