T9693_modified.hs 177 Bytes
Newer Older
1 2 3 4 5 6 7 8 9
module T9693 where
import Language.Haskell.TH

stuff = do
  let x = mkName "X"
  -- x <- newName "X"
  sequence $ [dataD (return []) x [] Nothing [
      normalC x []
    ] []]