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 remove unused function - - - - - 2 changed files: - compiler/GHC/Tc/Types/LclEnv.hs - compiler/GHC/Tc/Types/Origin.hs Changes: ===================================== compiler/GHC/Tc/Types/LclEnv.hs ===================================== @@ -89,10 +89,6 @@ data TcLclEnv -- Changes as we move inside an expression tcl_errs :: TcRef (Messages TcRnMessage) -- Place to accumulate diagnostics } --- | Get the top of the error message stack -get_err_ctxt_stack_head :: ErrCtxtStack -> HsCtxt -get_err_ctxt_stack_head (e : _) = e -get_err_ctxt_stack_head _ = error "get_err_ctxt_stack_head: oops! Empty error message stack" data TcLclCtxt = TcLclCtxt { ===================================== compiler/GHC/Tc/Types/Origin.hs ===================================== @@ -916,7 +916,7 @@ foldMapCtOrigin f = go DerivOriginDC {} -> f orig DerivOriginCoerce {} -> f orig DefaultOrigin {} -> f orig - DoOrigin {} -> f orig + DoStmtOrigin {} -> f orig DoPatOrigin {} -> f orig MCompOrigin {} -> f orig MCompPatOrigin {} -> f orig View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/46c6db620daa35fbf9e05e5149b23a4c... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/46c6db620daa35fbf9e05e5149b23a4c... You're receiving this email because of your account on gitlab.haskell.org.