xt (PatGuard ctxt) = text "pattern guard for" $$ pprMatchContext ctxt

-- Drop th
pprStmtContext (PatGuard ctxt) = text "pattern guard for" $$ pprMatchContext ctxt
pprStmtContext (PatGuard ctxt) = text "pattern guard for" $$ pprMatchContext ctxt