path: root/testsuite/tests/partial-sigs/should_fail/NamedWildcardInTypeSplice.hs

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NamedWildCards #-}
module NamedWildcardInTypeSplice where

import Language.Haskell.TH

metaType :: TypeQ
metaType = [t| _a -> _a |]