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

module T8028a where

import Language.Haskell.TH

x :: Q [Dec]
x = do n <- newName "F"
       return [ClosedTypeFamilyD (TypeFamilyHead n [] NoSig Nothing) []]