@@ -539,7 +539,7 @@ p_pat = \case
539539 p_rdrName pat
540540 breakpoint
541541 inci (located y p_pat)
542− ConPatOut {} -> notImplemented "ConPatOut"
542+ ConPatOut {} -> notImplemented "ConPatOut" -- presumably created by renamer?
543543 ViewPat NoExt expr pat -> sitcc $ do
544544 located expr p_hsExpr
545545 txt " ->"
@@ -557,7 +557,7 @@ p_pat = \case
557557 SigPat hswc pat -> do
558558 located pat p_pat
559559 p_typeAscription hswc
560− CoPat {} -> notImplemented "CoPat"
560+ CoPat {} -> notImplemented "CoPat" -- apparently created at some later stage
561561 XPat NoExt -> notImplemented "XPat"
562562
563563p_pat_hsRecField :: HsRecField' (FieldOcc GhcPs) (LPat GhcPs) -> R ()