Fix #11287.
[ghc.git] / testsuite / tests / th / T7241.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module T7241 where
4
5 import Language.Haskell.TH
6
7 $(newName "Foo" >>= \o -> return [DataD [] o [] Nothing [RecC o []] []])