extNoun :: (Outputable (NameOrRdrName id),Outputable id)
                    => HsMatchContext id -> SDoc
pprMatchContextNoun (FunRhs (L _ fun) _) = text "equation for"
                                      <+> quotes (ppr fun)
pprMatchCon
pprMatchContextNoun :: (Outputable (NameOrRdrName id),Outputable id)
                    => HsMatchContext id -> SDoc
pprMatchContextNoun (FunRhs (L _ fun) _) = text "equation for"
                                      <+> quotes (ppr fun)
pprMatchContextNoun (FunRhs (L _ fun) _) = text "equation for"
                                      <+> quotes (ppr fun)