Apoorv Ingle pushed to branch wip/spj-apporv-Oct24 at Glasgow Haskell Compiler / GHC Commits: a786d76d by Apoorv Ingle at 2025-07-21T08:17:52-05:00 OrigPat pprCtO says a do statement to mimic DoPatOrigin - - - - - 1 changed file: - compiler/GHC/Tc/Types/Origin.hs Changes: ===================================== compiler/GHC/Tc/Types/Origin.hs ===================================== @@ -1096,7 +1096,7 @@ pprCtO (ExpansionOrigin (OrigExpr (ExplicitList{}))) = text "an overloaded list" pprCtO (ExpansionOrigin (OrigExpr (HsIf{}))) = text "an if-then-else expression" pprCtO (ExpansionOrigin (OrigExpr e)) = text "an expression" <+> ppr e pprCtO (ExpansionOrigin (OrigStmt{})) = text "a do statement" -pprCtO (ExpansionOrigin (OrigPat{})) = text "a pattern" +pprCtO (ExpansionOrigin (OrigPat{})) = text "a do statement" pprCtO (ExpectedTySyntax o _) = pprCtO o pprCtO (ExpectedFunTySyntaxOp{}) = text "a rebindable syntax operator" pprCtO (ExpectedFunTyViewPat{}) = text "a view pattern" View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a786d76df56523a80ac678cdfc70afd3... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a786d76df56523a80ac678cdfc70afd3... You're receiving this email because of your account on gitlab.haskell.org.