[Git][ghc/ghc][wip/spj-apporv-Oct24] wrap expansion statements with the statement location instead of genSpan

[Apoorv Ingle (@ani)]

Apoorv Ingle pushed to branch wip/spj-apporv-Oct24 at Glasgow Haskell Compiler / GHC


Commits:
d4905732 by Apoorv Ingle at 2024-10-21T17:35:40-05:00
wrap expansion statements with the statement location instead of genSpan

- - - - -


1 changed file:

- compiler/GHC/Tc/Gen/Do.hs


Changes:

=====================================
compiler/GHC/Tc/Gen/Do.hs
=====================================
@@ -578,5 +578,5 @@ mkExpandedStmtAt
   -> HsDoFlavour          -- ^ the flavour of the statement
   -> HsExpr GhcRn         -- ^ expanded expression
   -> LHsExpr GhcRn        -- ^ suitably wrapped located 'XXExprGhcRn'
-mkExpandedStmtAt oStmt flav eExpr
-  = wrapGenSpan $ mkExpandedStmt oStmt flav eExpr
+mkExpandedStmtAt oStmt@(L loc _) flav eExpr
+  = L loc $ mkExpandedStmt oStmt flav eExpr



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d4905732e823c18a59cba002ba0399dfdfcd0293

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d4905732e823c18a59cba002ba0399dfdfcd0293
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20241021/cffcdfc3/attachment.html>