summaryrefslogtreecommitdiff
path: root/tests/examples/ghc86/TH_dataD1.hs
blob: 9883e3b4ad48553a50afc80e132082bc2543cef6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
{-# LANGUAGE TemplateHaskell #-}
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]})
       |]