[Git][ghc/ghc][wip/T21077-take-two] Draft: Don't use VAExpansion

[Ryan Scott (@RyanGlScott)]

Ryan Scott pushed to branch wip/T21077-take-two at Glasgow Haskell Compiler / GHC


Commits:
6a247718 by Ryan Scott at 2023-07-21T07:28:41-04:00
Draft: Don't use VAExpansion

See https://gitlab.haskell.org/ghc/ghc/-/issues/21077#note_514392

- - - - -


1 changed file:

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


Changes:

=====================================
compiler/GHC/Tc/Gen/Head.hs
=====================================
@@ -310,10 +310,9 @@ splitHsApps e = go e (top_ctxt 0 e) []
                (EWrap (EExpand orig) : args)
 
     go (HsUntypedSplice (HsUntypedSpliceTop mod_finalizers fun)
-                        (HsUntypedSpliceExpr _ (L _ orig))) ctxt args
+                        (HsUntypedSpliceExpr _ (L l orig))) ctxt args
      = do addModFinalizersWithLclEnv mod_finalizers
-          go fun (VAExpansion orig (appCtxtLoc ctxt))
-                 (EWrap (EExpand orig) : args)
+          go fun (set l ctxt) (EWrap (EExpand orig) : args)
 
     -- See Note [Desugar OpApp in the typechecker]
     go e@(OpApp _ arg1 (L l op) arg2) _ args



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/6a247718be5bea2a1f5d47ade42c6c57d635dab1
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/20230721/3d0ebc24/attachment-0001.html>