Apoorv Ingle pushed to branch wip/ani/kill-CodeSrcFlag at Glasgow Haskell Compiler / GHC Commits: 3ea76063 by Apoorv Ingle at 2026-03-12T14:33:47-05:00 make VDQWarningCtxt landmark - - - - - 875bb4a5 by Apoorv Ingle at 2026-03-12T14:33:47-05:00 make addExpansionErrCtxt also sets tcl_in_gen_code - - - - - 2 changed files: - compiler/GHC/Tc/Types/ErrCtxt.hs - compiler/GHC/Tc/Utils/Monad.hs Changes: ===================================== compiler/GHC/Tc/Types/ErrCtxt.hs ===================================== @@ -396,4 +396,5 @@ data ErrCtxtMsg isErrCtxtMsgLandmark :: ErrCtxtMsg -> Bool isErrCtxtMsgLandmark (DerivBindCtxt{}) = True isErrCtxtMsgLandmark (FunResCtxt{}) = True +isErrCtxtMsgLandmark (VDQWarningCtxt{}) = True isErrCtxtMsgLandmark _ = False ===================================== compiler/GHC/Tc/Utils/Monad.hs ===================================== @@ -1376,7 +1376,7 @@ addErrCtxt msg = addErrCtxtM msg -- See Note [ErrCtxtStack Manipulation] addExpansionErrCtxt :: ErrCtxtMsg -> TcM a -> TcM a {-# INLINE addExpansionErrCtxt #-} -- Note [Inlining addErrCtxt] -addExpansionErrCtxt msg = addExpansionErrCtxtM msg +addExpansionErrCtxt msg = setInGeneratedCode $ addExpansionErrCtxtM msg -- | Add a message to the error context. This message may do tidying. -- See Note [Rebindable syntax and XXExprGhcRn] in GHC.Hs.Expr View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c6f83aa401efeb7a28fdd5133b2906b... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c6f83aa401efeb7a28fdd5133b2906b... You're receiving this email because of your account on gitlab.haskell.org.