Fix #11287.
[ghc.git] / testsuite / tests / th / T8028a.hs
1 module T8028a where
2
3 import Language.Haskell.TH
4
5 x = do n <- newName "F"
6 return [ClosedTypeFamilyD (TypeFamilyHead n [] NoSig Nothing) []]