TH_dataD1.hs 199 Bytes
Newer Older
Ian Lynagh's avatar
Ian Lynagh committed
1 2 3 4 5 6 7

module TH_dataD1 where

import Language.Haskell.TH

ds :: Q [Dec]
ds = [d|
8 9
          $(do { d <- dataD (cxt []) (mkName "D") [] [normalC (mkName "K") []] []
               ; return [d]})
Ian Lynagh's avatar
Ian Lynagh committed
10 11
       |]