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

{-# LANGUAGE TemplateHaskell #-}

module T7241 where

import Language.Haskell.TH

$(newName "Foo" >>= \o -> return [DataD [] o [] Nothing [RecC o []] []])