diff options
Diffstat (limited to 'compiler/GHC/Parser/Types.hs')
-rw-r--r-- | compiler/GHC/Parser/Types.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/GHC/Parser/Types.hs b/compiler/GHC/Parser/Types.hs index 53cb3d93fc..a89472cc5f 100644 --- a/compiler/GHC/Parser/Types.hs +++ b/compiler/GHC/Parser/Types.hs @@ -54,7 +54,6 @@ pprSumOrTuple boxity = \case -- | See Note [Ambiguous syntactic categories] and Note [PatBuilder] data PatBuilder p = PatBuilderPat (Pat p) - | PatBuilderMatchPat (MatchPat p) | PatBuilderPar (LHsToken "(" p) (LocatedA (PatBuilder p)) (LHsToken ")" p) | PatBuilderApp (LocatedA (PatBuilder p)) (LocatedA (PatBuilder p)) | PatBuilderAppType (LocatedA (PatBuilder p)) (LHsToken "@" p) (HsPatSigType GhcPs) @@ -69,7 +68,6 @@ data MatchPatBuilder p instance Outputable (PatBuilder GhcPs) where ppr (PatBuilderPat p) = ppr p - ppr (PatBuilderMatchPat p) = ppr p ppr (PatBuilderPar _ (L _ p) _) = parens (ppr p) ppr (PatBuilderApp (L _ p1) (L _ p2)) = ppr p1 <+> ppr p2 ppr (PatBuilderAppType (L _ p) _ t) = ppr p <+> text "@" <> ppr t |