extNoun ThPatQuote      = text "Template Haskell pattern quotation"
pprMatchCon
pprMatchContextNoun ThPatQuote      = text "Template Haskell pattern quotation"
pprMatchContextNoun ThPatQuote      = text "Template Haskell pattern quotation"