[Git][ghc/ghc][wip/zonk-continuations] fix

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/zonk-continuations at Glasgow Haskell Compiler / GHC


Commits:
be530e21 by Matthew Pickering at 2023-05-18T13:05:24+01:00
fix

- - - - -


1 changed file:

- compiler/GHC/CoreToStg/Prep.hs


Changes:

=====================================
compiler/GHC/CoreToStg/Prep.hs
=====================================
@@ -2109,8 +2109,8 @@ subst_tyco_mapper = TyCoMapper
   , tcm_covar      = \env cv -> return (lookup_tce_cv env cv)
   , tcm_hole       = \_ hole -> pprPanic "subst_co_mapper:hole" (ppr hole)
   , tcm_tycobinder = \env tcv _vis k -> if isTyVar tcv
-                                      then Identity (subst_tv_bndr env tcv) >>= \(env, v) -> k env v
-                                      else Identity (subst_cv_bndr env tcv) >>= \(env, v) -> k env v
+                                      then uncurry k (subst_tv_bndr env tcv)
+                                      else uncurry k (subst_cv_bndr env tcv)
   , tcm_tycon      = \tc -> return tc }
 
 subst_ty :: CpeTyCoEnv -> Type     -> Identity Type



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/be530e21d9cf88c00e25252be69c4460c1114b27
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/20230518/0cd36bf1/attachment.html>