[Git][ghc/ghc][wip/T24359] Swizzle order of bindings

[Simon Peyton Jones (@simonpj)]

Simon Peyton Jones pushed to branch wip/T24359 at Glasgow Haskell Compiler / GHC


Commits:
9ecaa6aa by Simon Peyton Jones at 2024-11-19T08:16:06+00:00
Swizzle order of bindings

- - - - -


1 changed file:

- compiler/GHC/HsToCore/Binds.hs


Changes:

=====================================
compiler/GHC/HsToCore/Binds.hs
=====================================
@@ -847,10 +847,9 @@ dsSpec mb_poly_rhs (SpecPragE { spe_poly_id = poly_id
 
        ; mk_spec_call <- do { ds_call <- dsLExpr the_call
                             ; return $ \ poly_id poly_rhs ->
-                                  mkLets ds_rhs_binds  $
-                                  mkLets ds_lhs_binds  $
                                   mkLetNonRec (localiseId poly_id) poly_rhs $
-                                  ds_call }
+                                  mkLets ds_rhs_binds  $
+                                  core_call }
 
        ; finishSpecPrag mb_poly_rhs
                         (tv_bndrs ++ lhs_evs ++ id_bndrs) core_call



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9ecaa6aa54cb3f61410b7319518dfb156fc8b1b9
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/20241119/8454b1ab/attachment.html>