1 2 3 4 5 6 7 8 9 10
module TH_dataD1 where import Language.Haskell.TH ds :: Q [Dec] ds = [d| $(dataD [] (mkName "D") [] [normalC "K" []] []) |]