Apoorv Ingle pushed to branch wip/spj-apporv-Oct24 at Glasgow Haskell Compiler / GHC
Commits:
-
46c6db62
by Apoorv Ingle at 2026-03-22T13:24:34-05:00
2 changed files:
Changes:
| ... | ... | @@ -89,10 +89,6 @@ data TcLclEnv -- Changes as we move inside an expression |
| 89 | 89 | tcl_errs :: TcRef (Messages TcRnMessage) -- Place to accumulate diagnostics
|
| 90 | 90 | }
|
| 91 | 91 | |
| 92 | --- | Get the top of the error message stack
|
|
| 93 | -get_err_ctxt_stack_head :: ErrCtxtStack -> HsCtxt
|
|
| 94 | -get_err_ctxt_stack_head (e : _) = e
|
|
| 95 | -get_err_ctxt_stack_head _ = error "get_err_ctxt_stack_head: oops! Empty error message stack"
|
|
| 96 | 92 | |
| 97 | 93 | data TcLclCtxt
|
| 98 | 94 | = TcLclCtxt {
|
| ... | ... | @@ -916,7 +916,7 @@ foldMapCtOrigin f = go |
| 916 | 916 | DerivOriginDC {} -> f orig
|
| 917 | 917 | DerivOriginCoerce {} -> f orig
|
| 918 | 918 | DefaultOrigin {} -> f orig
|
| 919 | - DoOrigin {} -> f orig
|
|
| 919 | + DoStmtOrigin {} -> f orig
|
|
| 920 | 920 | DoPatOrigin {} -> f orig
|
| 921 | 921 | MCompOrigin {} -> f orig
|
| 922 | 922 | MCompPatOrigin {} -> f orig
|