path: root/testsuite/tests/th/T9693_initial.hs

module T9693 where
import Language.Haskell.TH

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