extNoun ThPatSplice     = text "Template Haskell pattern splice"
pprMatchCon
pprMatchContextNoun ThPatSplice     = text "Template Haskell pattern splice"
pprMatchContextNoun ThPatSplice     = text "Template Haskell pattern splice"