diff options
| author | sheaf <sam.derbyshire@gmail.com> | 2021-06-28 17:43:24 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-06-29 15:36:08 -0400 |
| commit | 4e9f58c759f16a3a20c338799a5b83d334c2778d (patch) | |
| tree | f7013651d23a13356499ef2d22b54919f8faa6ca /compiler/GHC/HsToCore/Quote.hs | |
| parent | b760c1f743ddb496886f095baa920740b38c9ce0 (diff) | |
| download | haskell-4e9f58c759f16a3a20c338799a5b83d334c2778d.tar.gz | |
Use HsExpansion for overloaded list patterns
Fixes #14380, #19997
Diffstat (limited to 'compiler/GHC/HsToCore/Quote.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Quote.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/compiler/GHC/HsToCore/Quote.hs b/compiler/GHC/HsToCore/Quote.hs index 0860192e68..71e5ac9655 100644 --- a/compiler/GHC/HsToCore/Quote.hs +++ b/compiler/GHC/HsToCore/Quote.hs @@ -2039,12 +2039,8 @@ repP (LazyPat _ p) = do { p1 <- repLP p; repPtilde p1 } repP (BangPat _ p) = do { p1 <- repLP p; repPbang p1 } repP (AsPat _ x p) = do { x' <- lookupNBinder x; p1 <- repLP p ; repPaspat x' p1 } -repP (ParPat _ _ p _) = repLP p -repP (ListPat Nothing ps) = do { qs <- repLPs ps; repPlist qs } -repP (ListPat (Just (SyntaxExprRn e)) ps) = do { p <- repP (ListPat Nothing ps) - ; e' <- repE e - ; repPview e' p} -repP (ListPat _ ps) = pprPanic "repP missing SyntaxExprRn" (ppr ps) +repP (ParPat _ _ p _) = repLP p +repP (ListPat _ ps) = do { qs <- repLPs ps; repPlist qs } repP (TuplePat _ ps boxed) | isBoxed boxed = do { qs <- repLPs ps; repPtup qs } | otherwise = do { qs <- repLPs ps; repPunboxedTup qs } |