Support wild cards in TH splices
[ghc.git] / testsuite / tests / partial-sigs / should_fail / NamedWildcardInTypeSplice.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 {-# LANGUAGE NamedWildCards #-}
3 module NamedWildcardInTypeSplice where
4
5 import Language.Haskell.TH
6
7 metaType :: TypeQ
8 metaType = [t| _a -> _a |]